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ABSTRACT 

Traditionally, the design and implementation of a conventional database sys- 
tem begins with the choice of a data model followed by the specification of a 
model-based data language. Thus, the database system is restricted to a single 
data model and a specific data language. An alternative to this traditional 
approach to database-system development is the multi-lingual database system 
(MLDS). This alternative approach enables the user to access and manage a large 
collection of databases via several data models and their corresponding data 
languages without the aforementioned restriction. 

In this thesis we present the implementation of a entity-relationship/Daplex 
language interface for the MLDS. Specifically, we present the implementation of 
an interface which translates Daplex language calls into attribute-based data 
language (ABDL) requests. We describe the software engineering aspects of our 
implementation and an overview of the five modules which comprise our entity- 


relationship/Daplex language interface. 
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I. INTRODUCTION 


A. MOTIVATION 

During the past twenty years database systems have been designed and 
implemented using what we refer to as the traditional approach. The first step in 
the traditional approach involves choosing a data model. Candidate data models 
include the hierarchical data model, the relational data model, the network data 
model, the entity-relationship data model, or the attribute-based data model to 
name a few. The second step specifies a model-based data language, e.g., DL/I 
for the hierarchical data model, or Daplex for the entity-relationship data model. 

A number of database systems have been developed using this methodology. 
For example, IBM has introduced the Information Management System (IMS) in 
the sixties, which supports the hierarchical data model and the hierarchical- 
model-based data language, Data Language I (DL/I). Sperry Univac has intro- 
duced the DMS-1100 in the early seventies, which supports the network data 
model and the network-model-based data language, CODASYL Data Manipula- 
tion Language (CODASYL-DML). More recently, there has been IBM’s intro- 
duction of the SQL/Data System which supports the relational model and the 
relational-model-based data language, Structured English Query Language (SQL). 
The result of this traditional approach to database system development is a 
homogeneous database system that restricts the user to a single data model and a 
specific model-based data language. 

An unconventional approach to database system development, referred to as 
the Multi-lingual Database System (MLDS) [Ref. 1], alleviates the aforementioned 
restriction. This new system affords the user the ability to access and manage a 
large collection of databases via several data models and their corresponding data 
languages. The design goals of the MLDS involve developing a system that is 
accessible via four different interfaces, the hierarchical/DL/I, relational/SQL, 


network/DML, and entity-relationship/Daplex interfaces. 


There are several advantages in developing such a system. Perhaps the most 
practical of these involves the reusability of database transactions developed on 
an existing database system. In MLDS, there is no need for the user to convert 
a transaction from one data language to another. MLDS permits the running of 
database transactions written in different data languages. Therefore, the user 
does not have to perform either manual or automated translation of existing tran- 
sactions in order to execute a transaction in MLDS. MLDS provides the same 
results even if the data language of the transaction originates at a different 
database system. 

A second advantage deals with the economy and effectiveness of hardware 
upgrade. Frequently, the hardware supporting the database system is upgraded 
because of technological advancements or system demand. With the traditional 
approach, this type of hardware upgrade has to be provided for all of the dif- 
ferent database systems in use, so that all of the users may experience system 
performance improvements. This is not the case in MLDS, where only the 
upgrade of a single system is necessary. In MLDS, the benefits of a hardware 
upgrade are uniformly distributed across all users, despite their use of different 
models and data languages. 

Thirdly, a multi-lingual database system allows users to explore the desirable 
features of the different data models and then use these features to better support 
their applications. This is possible because MLDS supports a variety of 
databases structured in any of the well-known data models. 

It is apparent that there exists ample motivation to develop a multi-lingual 
database system with many data model/data language interfaces. In this thesis, 


an entity-relationship/Daplex MLDS interface is developed. 


B. THE MULTI-LINGUAL DATABASE SYSTEM 

A detailed discussion of each of the components of MLDS is provided in sub- 
sequent chapters. In this section we provide an overview of the organization of 
MLDS. This assists the reader in understanding how the different components of 
MLDS are related. 

Figure 1 shows the system structure of a multi-lingual database system. The 


user interacts with the system through the language interface layer (LIL), using a 
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chosen user data model (UDM) to issue transactions written in a corresponding 
model-based user data language (UDL). LIL routes the user transactions to the 
kernel mapping system (KMS). KMS performs one of two possible tasks. First, 
KMS transforms a UDM-based database definition to a database definition of the 
kernel data model (KDM), when the user specifies that a new database is to be 
created. When the user specifies that UDL transaction is to be executed, KMS 
translates UDL transaction to a transaction in the kernel data language (KDL). 
In the first task, KMS forwards KDM data definition to the kernel controller 
(KC). KC, in turn, sends KDM database definition to the kernel database system 
(KDS). When KDS is finished with processing KDM database definition, it 
informs KC. KC then notifies the user, via LIL, that the database definition has 


been processed and that loading of the database records may begin. In the 





UDM — : User Data Model 
UDL : User Data Language 


LIL : Language Interface Layer 
KMS : Kernel Mapping System 
KC : Kernel Controller 

KFS : Kernel Formatting System 


KDM : Kernel Data Model 
KDL : Kernel Data Language 
KDS : Kernel Database System 


Figure 1. The Multi-Lingual Database System. 
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second task, KMS sends KDL transactions to KC. When KC receives KDL tran- 
sactions, it forwards them to KDS for execution. Upon completion, KDS sends 
the results in the KDM form back to KC. KC routes the results to the kernel 
formatting system (KFS). KFS reformats the results from the KDM form to the 
UDM form. KFS then displays the results in the correct UDM form via LIL. 

The four modules, LIL, KMS, KC, and KFS, are collectively known as the 
language interface. Four similar modules are required for each other language 
interface of the MLDS. For example, there are four sets of these modules where 
one set is for the hierarchical/DL/I language interface, one for the relational/SQL 
language interface, one for the network/DML language interface, and one for the 
entity-relationship/Daplex language interface. However, if the user writes the 
transaction in the native mode (i.e., in KDL), there is no need for an interface. 

In our implementation of the entity-relationship/Daplex language interface, 
we develop the code for the four modules. However, we do not integrate these 
modules with the KDS as shown in Figure 1. The Laboratory of Database Sys- 
tems Research at the Naval Postgraduate School has procurred the new computer 
equipment for the KDS. When the equipment is installed, the KDS is to be 
ported over to the new equipment. The MLDS software is then to be integrated 
with the KDS. Although not a very difficult undertaking, it is neverless outside 
the focus of this thesis. 


C. THE KERNEL DATA MODEL AND LANGUAGE 

The choice of a kernel data model and a kernel data language is the key deci- 
sion in the development of a multi-lingual database system. The overriding ques- 
tion, when making such a choice, is whether the kernel data model and kernel 
data language is capable of supporting the required data-model transformations 
and data-language translations for the language interfaces. 

The attribute-based data model proposed by Hsiao [Ref. 2], extended by 
Wong [Ref. 3], and studied by Rothnie [Ref. 4], along with the attribute-based 
data language (ABDL), defined by Banerjee [Ref. 5], have been shown to be 
acceptable candidates for the kernel data model and kernel data 


language, respectively. 


11 


Why is the determination of a kernel data model and kernel data language so 
important for MLDS? No matter how multi-lingual MLDS may be, if the under- 
lying database system (i.e, KDS) is slow and inefficient, then the interfaces may 
be rendered useless and untimely. Hence, it is important that the kernel data 
model and kernel language be supported by a high-performance and great- 
capacity database system. Currently, only the attribute-based data model and 
the attribute-based data language are supported by such a system. This system 
is the multi-backend database system (MBDS) [Ref. 1]. 


D. THE MULTI-BACKEND DATABASE SYSTEM 

The multi-backend database system (MBDS) has been designed to overcome 
the performance problems and upgrade issues related to the traditional approach 
of database system design. This goal is realized through the utilization of 
multiple-backends connected in a parallel fashion. These backends have identical 
hardware, replicated software, and their own disk systems. In a multiple-backend 
configuration, there is a backend controller, which is responsible for supervising 
the execution of database transactions and for interfacing with the hosts and 
users. The backends perform the database operations with the database stored 
on the disk system of the backends. The controller and backends are connected 
by a communication bus. Users access the system through either the hosts or the 
controller directly (see Figure 2). 

Performance gains are realized by increasing the number of backends. If the 
size of the database and the size of the responses to the transactions remain con- 
stant, then MBDS produces a reciprocal decrease in the response times for the 
user transactions when the number of backends is increased. On the other hand, 
if the number of backends is increased proportionally with the increase in data- 
bases and responses, then MBDS produces invariant response times for the same 


transactions. A more detailed discussion of MBDS is found in [Ref. 6]. 


E. THESIS OVERVIEW 
The organization of our thesis is as follows: In Chapter II, we discuss the 
software engineering aspects of our implementation. This includes a discussion of 


our design approach, as well as a review of the global data structures used for the 
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Figure 2. The Multi-Backend Database System. 


implementation. Chapter III discusses the storage and creation of the Daplex 
schemas. In Chapter IV, we outline the functionality of the language interface 
layer. In Chapter V, we articulate the processes constituting the kernel mapping 
system. In Chapter VI, we conclude the thesis. 

Appendix A contains the data structure used for the interface, and Appendix 
B provides the modules for the storage and retrieval of the Daplex schemas. The 
detailed specifications of the interface modules (i.e., LIL and KMS) are given in 
Appendices C and D respectively. The specifications of the source data language, 
Daplex, and the target data language, ABDL, are found in [Ref. 7] and [Ref. 8), 
respectively. Throughout this thesis, we provide examples of Daplex requests 


and their translated ABDL equivalents. All examples involving database 
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operations presented in this thesis are based on the university database described 


in the Daplex User's Manual [Ref. 7], and shown in Figure 3. 


DATABASE university IS 


TYPE person; 

SUBTYPE employee; 

SUBTYPE support staff; 

SUBTYPE faculty; 

SUBTYPE student; 

SUBTYPE graduate; 

SUBTYPE undergraduate; 

TYPE course; 

TYPE department; 

TYPE enrollment; 

TYPE rank name IS (assistant,associate,full); 
TYPE semester name IS (fall, spring, summer); 


TYPE grade point IS FLOAT RANGE 0.0 .. 4.0; 


TYPE person IS 
ENTITY 
name : STRING (1 .. 25); 
ssn : STRING (1... 9) := "000000000"; 


END ENTITY; 
SUBTYPE employee IS person 
ENTITY 
home address : STRING (1 .. 50); 
office : STRING (1 .. 8); 
phones : SET OF STRING (1...7); 
salary : FLOAT; 
dependents : INTEGER RANGE 0.. 10 ; 
END ENTITY; 


SUBTYPE support staff IS employee 
ENTITY 
supervisor : employee WITHNULL; 
full time : BOOLEAN; 


END ENTITY; 
SUBTYPE faculty IS employee 
ENTITY 
rank : rank name; 
teaching : SET OF course; 
tenure : BOOLEAN :- FALSE; 
dept : department; 


END ENTITY; 
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SUBTYPE student IS person 


ENTITY 
advisor : faculty WITHNULL; 
major : department; 
enrollments : SET OF enrollment; 
END ENTITY; 
SUBTYPE graduate IS student 
ENTITY 
advisory committee : SET OF faculty; 
END ENTITY; 
SUBTYPE undergraduate IS student 
ENTITY 
gpa : grade point := 0.0; 
year : INTEGER RANGE 1.. 4:= 1; 
END ENTITY; 
TYPE course IS 
ENTITY 
title : STRING (1 .. 10); 
dept : department; 
semester : semester name; 
credits : INTEGER; 
END ENTITY; 
TYPE department IS 
ENTITY 
name : STRING (1 .. 20); 
head : faculty WITHNULL; 
END ENTITY; 
TYPE enrollment IS 
ENTITY 
class : course; 
grade : grade point: 
END ENTITY; 


UNIQUE ssn WITHIN person; 

UNIQUE name WITHIN department; 
UNIQUE title, semester WITHIN course; 
OVERLAP graduate WITH faculty; 


END university; 


Figure 3. The University Database. 
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IL SOFTWARE ENGINEERING OF A LANGUAGE INTERFACE 


In this chapter, we discuss the various software engineering aspects of 
developing a language interface. First, we describe our design goals, and then 
outline the design approach that we have taken to ımplement the interface. 
Included in this section are discussions of our implementation strategy, our 
software development techniques, and the salient characteristics of the language 
interface software. Next, a critique of our implementation is provided, and then 
we describe the data structures used in the interface. Finally, we provide an 


organizational description of the next four chapters. 


A. DESIGN GOALS 

We are motivated to implement a Daplex interface for MLDS using MBDS 
as the kernel database system, the attrıbute-based data model as the kernel data 
model, and the attrıbute-based data language, ABDL, as the kernal data 
language. It is important to note that we do not propose changes to the kernel 
database system or language. Instead, our implementation resides entirely in the 
host computer. All user transactions in Daplex are processed in the Daplex inter- 
face. MBDS continues to receive and process requests in the syntax and seman- 
tics of ABDL. 

In addition, our interface will be transparent to the user. For example, an 
employee in a corporate environment with previous Daplex experience could log 
into our system, issue a Daplex request and receive resultant data in an entity- 
relationship format. The employee requires no training in ABDL or MBDS 


procedures prior to utilizing the system. 


B. AN APPROACH TO THE DESIGN 
1. The Implementation Strategy 
There are a number of different strategies we might have employed in the 
implementation of the Daplex language interface. For example, there is the 


build-it-twice full-prototype approach, the level-by-level top-down approach, the 
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incremental development approach, and the advancemanship approach 
[Ref. 9: pp. 41-46). We have predicated our choice on minimizing the 
"software-crisis" as described by Boehm [Ref. 9: pp. 14-31]. 

The strategy we have decided upon is the level-by-level top-down 
approach. Our choice is based on first, a time constraint. The interface has to 
be developed in approximately two quarters. Second, the level-by-level top-down 
approach lends itself to the natural evolution of the interface. The system is ini- 
tially thought of as a "black box" (see Figure 1 again) that accepts Daplex tran- 
sactions and then returns the appropriate results. The "black box" is then 
decomposed into its four modules, LIL, KMS, KC, and KFS. These modules, in 
turn, are further decomposed into the necessary functions and procedures to 
accomplish the appropriate tasks. 

2. Techniques for Software Development 

In order to achieve our design goals, it is important to employ effective 

software engineering techniques during all phases of the software development 


life-cycle. These phases, as defined by Ledthrum [Ref. 10: p. 27], are as follows: 


(1) Requirements Specification - This phase involves 
stating the purpose of the software: "what" is to 
be done, not "how" it is to be done. 

(2) Design - During this phase an algorithm is devised 
to carry out the specification produced in the 
previous phase. That is, "how" to implement the 
system is specified during this phase. 


(3) Coding - In this phase, the design is translated 
into a programming language. 


(4) Validation - During this phase, it is ensured that 

the developed system functions as originally 

intended. That 1s, it is verified that the system 

actually does what it is supposed to do. 

The first phase of the life-cycle has already been performed. The 
research done by Demurjian and Hsiao [Ref. 1] has described the motivation, 
goals, and structure of MLDS. The research conducted by Goisman [Ref. 11| 
has extended this work to describe in detail the purpose and design of the Daplex 


interface. Accordingly, the requirements specifications are derived from the 


above research. 
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The system implementation methodology was essentially accomplished 
and proven during the implementation of DL/I and SQL into MLDS 
[Refs. 12 and 13]. Our task was to adapt the DL/I and SQL approaches as 
necessary for the Daplex implementation. | 

We have used the C programming language [Ref. 14] to translate the 
design into executable code. Initially, we were not conversant in the language. 
However, the simple syntax of C and our background in structured languages has 
made C relatively easy for us to learn. 

The main advantage of C is the programming environment in which it 
resides, the UNIX operating system. This environment has permitted us to parti- 
tion the Daplex interface, and then manage these parts in an effective and effi- 
cient manner. The primary disadvantage to the use of C is that the poor error 
diagnostics presented by the C compiler can and at times did make debugging 
difficult. There is an on-line debugger available in UNIX for use with C, but we 
chose to use conditional computation and diagnostic print statements to aid in 
the debugging process. To validate our system we have used path testing [Ref 
15], a traditional testing technique. We have checked boundary cases, and we 
have tested those cases considered "normal". It ıs noteworthy to mention that 
testing does not prove the system correct, but may only indicate the absence of 
problems with the cases that have been tested. 

3. Characteristics of the Interface Software 

We realize that in order for the Daplex interface to be successful, that it 
must be well designed and well structured. Further, we are cognizant of certain 
characteristics that the interface must possess. Specifically, it must be simple, 
and easily read and understood. 

The ease with which the code can be understood is vital to keeping the 
program maintenance effort low. As reported by Fairley [Ref. 16: p. 82], roughly 
60% of all software life-cycle costs are incurred after the software becomes opera- 
tional, so it is important that a maintenance programmer can easily grasp the 
functionality of the Daplex interface and the relationship between it and the 


other portions of the system. 
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We have made every effort to ensure that the C code we have written 
has these characteristics. For instance, we have avoided the use of the shorthand 
notations available in C and have used the more readable, and therefor longer 
version of C whenever possible. This extra code has often made the difference 
between comprehensible code and cryptic notations. Further, the interface 
software does not have any hidden side-effects that could pose problems months 
or years from now. As a matter of fact, we have intentionally minimized the 
interaction between procedures to ease the burden of maintainability. 

In addition to the above software engineering techniques, we require pro- 
grammers to update documentation of the interface code when changes are made. 
Hence, maintenance programmers have current documentation at all times, and 
the problem of trying to identify the functionality of a program with dated docu- 
mentation -is alleviated. To take the software engineering a step further, the data 
structures are designed to be as general as possible. Thus, it is an easy task to 
modify or rectify these structures to meet the demands of an evolving system. 

A final characteristic of a sound Daplex interface is extensibility. A 
software product has to be designed in a manner that permits the easy modifica- 
tion and addition of code. In this light, we have placed "stubs" in appropriate 
locations within KFS to permit easy insertion of the code needed to handle multi- 


ple horizontal screens of output. 


C. THE DATA STRUCTURES 

The Daplex language interface has been developed as a single-user system. It 
is recognized however, that at some point in time the Daplex interface will be 
updated to a multi-user system. Accordingly, two different concepts of data are 
used in the interface: (1) data structures shared by all users, and (2) structures 
specific to each user. In accordance with the first data structure concept, the 
Daplex implementation has, whenever possible, used and added to the existing 
generic data structures generated by the previous implementations of DL/I and 
SQL. However, due to the complexity of the entity-relationship model, an addi- 
tional large set of unique and specific data structures was required for the Daplex 


implementation. 
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1. Data Shared by All Users 

The following discussion of data structures makes extensive use of the 
university database described in Figure 3. A frequent reference to Figure 3 may 
aid the reader greatly in understanding the following material. . 

The data structures that are shared by all users are the database schemas 
defined by the users thus far. In our case, these are entity-relationship schemas, 
consisting of entities and the relationships (functions) between the entities. 
These are not only shared by all users, but also shared by the four modules of the 
MLDS, i.e., LIL, KMS, KC, and KFS. It is important to note that this structure 
is represented as a union and is generic in the sense that it can be used to sup- 
port the SQL, CODASYL, DL/I, and Daplex needs. Figure 4 depicts this data 


structure. 


union dbid node 


{ 


struct rel dbid node “rel; 
struct hie dbid node *hie; 
struct net dbid node *net; 
struct ent dbid node *ent; 


j 


Figure 4. The dbid node Data Structure. 

The main concern of this thesis, however, is with the entity-relationship 
model. In this regard, the fourth field of this structure points to a node that con- 
tains the information about an entity-relationship database. Figure 5 illustrates 
this record. 

The first field is simply a character array containing the name of the 
entity-relationship database. The second field contains a pointer to the base-type 
nonentity node, and the following field simply contains an integer value that 
represents the number of these nodes in the database. The fourth field points to 
the entity node, and as before the field that immediately follows contains an 
integer value representing the number of such nodes. The sixth field contains a 
pointer to the generalized entity supertype node and the seventh field the integer 
value of the number of these supertypes. The eighth and tenth fields contain 
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struct ent dbid node 


char edn name[DBNLength + 1]; 
struct ent non node *edn nonentity; 


int edn num nönent; 

struct ent node *edn entity; 

int edn num ent; 

struct gen sub node *edn subptr; 

int edn num gen; 

struct sub non node “edn nonsubptr; 
int edn num nonsub; 

struct der non node *edn nonderptr; 
int edn num der; 


struct ent dbid node *edn next db; 
}; 
Figure 5. The ent_dbid_node Data Structure. 
pointers to the nonentity subtypes and nonentity derived types respectively, and 
the ninth and eleventh fields contain the integer value for the number of such 
nodes. Finally, the twelfth field points to the next entity-relationship database 
node. 

Figure 6 depicts the entity node structure. The first field of this struc- 
ture is a character array which holds the name of the entity, and the second field 
is an integer representation of the number of functions associated with the entity 
that this node represents. For instance, the "person" entity has two functions 


associated with it, "name" and "ssn". The third field is an integer representation 


struct ent node 


{ 


char en name[ENLength + 1]; 


int en num funct; 

int en terminal; 

struct function node “en ftnptr; 
struct ent node *en next ent; 


i 


Figure 6. The ent_node Data Structure. 
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of a boolean function and indicates whether or not the entity is a terminal type, 
l.e., not a supertype. 

The structure of the gen sub node is shown in Figure 7. The first field, 
similar to previous nodes, holds the name of the generalized entity subtypes. An 
example applied to the university data base is "support staff". The second field 
holds the number of functions associated with each entity subtype, and the third 
field is an integer representation of a boolean function and holds a "1" if the 


generalized entity is a subtype and not a supertype. 


struct gen sub node 


{ 


char gsn name[ENLength + 1]; 


int gsn num funct; 

int gsn_terminal; 

struct overlap ent node "gsn entptr; 
int gsn num ent; 


struct function node  *gsn ftnptr; 
struct overlap sub node *gsn subptr; 
int gsn num sub; 
struct gen sub node *gsn next genptr; 
$ 

Figure 7. The gen sub node Data Structure. 

The fourth field holds a pointer to the entity supertype. In the case of 
"employee" the supertype is "person". The fifth field indicates the number of 
those entities. The sixth field holds a pointer to a function associated with the 
generalized subtype, for instance, "salary". The seventh field holds a pointer to 
the subtype supertype. For example, the supertype for the subtype 
"support staff" is "employee". The eighth field maintains a record of the 
number of such subtype supertypes. The final field simply points to the next 
gen sub node. 

The ent non node record is shown in Figure 8, and contains information 
about each nonentity base-type in the database. The first field of the record 
holds the name of the nonentity node, for example, "rank name". The second 


field holds the character that indicates the type of nonentity node, either "i", 
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integer; "e", enumeration; "f", floating point; "s", string; "b", boolean. The next 


field contains an integer that indicates the maximum length of the base-type 
value. 

The fourth field contains an integer representation of.a boolean value, a 
"1" or "0", that indicates whether or not there is a range associated with the 
nonentity node. For example, the nonentity "grade point" has a range of 0.0 to 
4.0, while "rank-name" is without a range. The fifth field contains an integer that 
represents the number of different values that the nonentity can assume. As an 
example, both "rank name" and "semester name" can assume three values, but 


"grade point" can assume 40 different values. 


struct ent non node 


{ 


char enn name|ENLength - 1]; 


char enn type; 

int enn total length; 

int enn range; 

int enn num values; 

struct ent value *enn value; 
int enn constant; 


struct ent non node “enn next node; 
j 
Figure 8. The ent non node Data Structure 

The sixth field contains a pointer to the actual value of the base-type, 
and the seventh field contains an integer representation of a boolean value that 
indicates if the actual value of the base-type is a constant. There are no con- 
stants in the university database, but, as an example, the value of the base-type 
could assume the constant value of pi (3.14159265) or Avogadro’s number (6.023 
X 10°23). The eighth and final field contains a pointer to the next nonentity 
node. 

The sub non node is shown in Figure 9. This structure is almost identi- 
cal in form and similar in purpose to the ent non node of Figure 6. The main 
difference in purpose between the two structures is that the ent non node is for a 
base-type nonentity and the sub non node is for a subtype nonentity. The 


difference in form between the two structures is the absence of constants in the 


23 


struct sub non node 


{ 


char snn name[ENLength + 1]; 


char snn type; 

int snn total length; 

int snn range; 

int snn num values; 

struct ent value *snn value; 


struct sub non node “snn next node; 


}; 
Figure 9. The sub non node Data Structure. 


sub non node. Maintaining two separate constant lists would be redundant, 
hence the constants are found only in the ent non node. 

The next node, similar to both the ent non node and the sub non node, 
is the der non node, shown in Figure 10. The der non node is identical in struc- 
ture to the sub non node and differs in function in that it applies to the derived 


nonentity subtypes. 


struct der non node 


{ 


char dnn name[ENLength + 1]; 
char dnn type; 


int dnn total length; 

int dnn range; 

int dnn num values; 

struct ent value *dnn value; 


struct der non node *dnn next node; 
5 
Figure 10. The der non node Data Structure. 

The final node that we will discuss is this section is the function node, 
shown in Figure 11. The function node defines the structures for each function 
type declaration. As an example, the function "dept" returns the entity 
"department" when applied to the entity "faculty". 

The first field of the function node points to the name of the function, in 


this example the name is "dept". The second field holds the type, an "e" in this 
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struct function node 


{ 


char fn name[ENLength+1]; 
char fn type; 


int fn range; 
int fn total length; 
int fn num value; 


struct ent _ value “fn value; 

struct ent node “fn entptr; 

struct gen sub node “fn subptr; 
struct ent non node “fn nonentptr; 
struct sub non node “fn nonsubptr; 
struct der non_node *fn_nonderptr; 
int fn entnull; 

int fn unique; 

struct function node “fn next fntptr; 


T 
Figure 11. The function node Data Structure. 


case. The third field indicates when the function has a range of values, the fourth 
field indicates the length and the fifth field indicates the number of values, if any. 
In this example, all three fields would hold a "0". 

The sixth field would hold the actual value, if there were any, and the 
next five fields hold pointers to the type to which a particular function belongs. 
A function may belong to more than one type, but it is extremely unlikely that it 
would belong to all five. In our example, the function "dept" belongs to only one 
type, the entity "department", hence only the ent node pointer, fn entptr, will 
contain any information, the remaining four type field pointers will be empty. 

The twelfth field indicates if there is an associated entity value. It is ini- 
tialized to hold a "0" and in the above SI maintains that "O". The thir- 
teenth field indicates whether or not the function is unique. It too is initialized 
to "O", and in our example maintains that "0". The final field simply contains a 
pointer to the next function. 

2. Data Specific to Each User 
This category of data represents information required to support each 


user’s particular interface needs. The data structures used to accomplish this 
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may be thought of as forming a hierarchy. At the root of this hierarchy is the 
user info record, shown in Figure 12, which maintains information on all current 
users of a particular language interface. The user info record holds the ID of the 
user, a union that describes a particular interface, and a pointer to the next user. 
The union field is of particular interest to us. As noted earlier, a union serves as 


a generic data structure. 


struct user info 


{ 
char uid[UIDLength + 1]; 


union li info li type; 
struct user info “next user; 


j 


Figure 12. The user info Data Structure. 

In this case, the union may hold the data for a user accessing either an 
SQL language interface layer, a DL/I LIL, a CODASYL-DML LIL, or a Daplex 
LIL. The li info union is shown in Figure 13. 

We are only interested in the data structures containing user information 
that pertain to Daplex, or entity-relationship, language interface. This structure 
is referred to as dap info and is depicted in Figure 14. The first field of this 
structure, dpi curr db, is itself a record and contains currency information on the 
database being accessed by a user. The second field, dpi file, is also a record. 
The file record contains the file descriptor and file identifier of a file of Daplex 
transactions, either requests or database descriptions. The next field, 
dpi dml tran, is also a record, and holds information that describes the Daplex 


union li info 
{ 
struct sql info li sql; 
struct dli info li dli; 
struct dml info li dml; 
struct dap info li dap; 


} 


Figure 13. The li info Data Structure. 
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struct dap info 


{ 


struct curr_db info dpi_curr_db; 


struct file info dpi file; 

struct tran info dpi dml tran; 
int dap operation; 

struct ddl info *dpi ddl files; 
union kms info dpi kms data; 
union kfs info dpi kfs data; 
union kc info dpi kc data; 
int dap error; 

int dap answer; 

int dap buff count; 


$ 
Figure 14. The dap info Data Structure. 


transactions to be processed. This includes the number of requests to be pro- 
cessed, the first request to be processed, and the current request being processed. 
The fourth field of the dap info record, dap operation, is a flag that indicates the 
operation to be performed. This may be either the loading of a new database, or 
the execution of a request against an existing database. The next field, 
dpi ddl files, is a pointer to a record describing the descriptor and template files. 
These files contain information about the ABDL schema corresponding to the 
current entity-relationship database being processed, i.e. the ABDL schema 
information for a newly defined entity-relationship database. The following 
fields, dpi kms data, dpi kfs data and dpi kc data, are unions that contain 
information required by the KMS, KFS and KC, respectively. These are 
described in more detail in later chapters. The next field, error, is an integer 
value representing a specific error type. The next field, answer, is used by the 
LIL to record answers received through its interaction with the user of the inter- 
face. The last field, buff count, is a counter variable used in the KC to keep 


track of the result buffers. 
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D. THE ORGANIZATION OF THE NEXT FOUR CHAPTERS 

The following four chapters are meant to provide the user with a more 
detailed analysis of the modules constituting MLDS and Daplex implementations. 
Each chapter begins with an overview of what each particular module does and 
how it relates to the other modules. The actual processes performed by each 
module are then discussed. This includes a description of the actual data struc- 
tures used by the modules. Each chapter concludes with a discussion of module 


shortcomings. 
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III. STORAGE AND RETRIEVAL OF THE DAPLEX SCHEMAS 


The first modules that we discuss concern the storage of the Daplex schemas 
from memory and the recreation of those schemas in memory from a file. It is 
understood that these modules are not as conceptually interesting as the LIL, 
KMS, KC or KFS, but they are important, and are included here for 
completeness. 

The reader is reminded that Appendix B contains the modules for storage 
and retrieval and should be consulted frequently to ensure a thorough under- 


standing of this chapter. 


A. DAPLEX SCHEMA STORAGE 

Early in the design phase of the storage module, we realized that several 
items in the schema could be stored more than once and storage space unneces- 
sarily wasted. Accordingly, we made a concerted effort to avoid storing redun- 
dant data and mapped the data to the correct structure with the use of pointers. 

The Daplex schemas are tied together as they are written to a file by a series 
of pointer manipulations. The pointer that is responsible for each ent dbid node, 
hence for the entire Daplex database, is known as db ptr. Generally, the db ptr 
is set to the head of the database and then passed to the routine responsible for 
writing the contents of that specific portion of the ent dbid node to a file. 
Accordingly, the entire ent dbid node is not written to the file at this time, 
rather, only the database name, edn name, and the number of nonentities, 
edn num nonent, are stored. (see Figure 5 again) In general, as the pointer is 
sequenced through the node, each structure it encounters is processed in turn, 
storing necessary information while at the same time avoiding information that 
may be previously stored in another node. 

The first structure that the pointer encounters is the ent_non node (as in 
Figure 5). The routine for storing the nonentity nodes is known as 
proc ent non node. The entire nonentity node is stored at this time, (see Figure 


8 again) including any associated entity values, as this information is not 
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duplicated elsewhere. The pointer ın the callıng routine then moves to the next 
nonentity node and the entire procedure is repeated. This process continues until 
all the nonentity nodes have been stored. 

The db ptr, is then set to the entity nodes (as in Figure 5), the procedure 
for processing the entity nodes, wr ent node, is executed, and the entire set of 
entity nodes is processed. (see Figure 6 again) However, the functions associated 
with the respective entities are not processed, as all the functions are handled 
separately. 

The routine wr gen sub node, processes the next node, the generalized entity 
subtypes. Only the first three fields, gsn name, gsn num funct, and 
gsn_terminal, (see Figure 7 again) are stored directly by this routine, the remain- 
ing fields are stored immediately after execution of wr gen sub node, and within 
the main routine. 

The remainder of the gen sub node is processed in the main routine. This 
segment of code is handled in the main routine instead of in a separate procedure 
because the pointer manipulations are more easily handled here and because this 
data is processed only once, a separate routine was not considered necessary. 
The reader should note that the subtypes with entity supertypes, i.e., the 
overlap ent nodes, and the terminal subtypes that define one or more subtypes, 
i.e., the overlap sub nodes, that are associated with the gen sub node are all 
processed at this time. 

The subtype nonentity nodes are processed within the proc sub non node 
routine. First, the db ptr is set to point at the edn nonsubptr (as in Figure 5). 
The proc sub non node is then called, and the entire sub non node is stored. 

The derived type nonentity nodes are processed in exactly the same manner 
as the sub non node. The db ptr is set to point at edn nonderptr (as in Figure 
5) and the entire der non node is processed. (see Figure 10 again) 

The functions associated with the entity nodes are the next items stored. The 
reader may remember that we chose not to store these functions earlier. We 
store the functions now by first setting the db ptr to point at the entity nodes 
and then call wr all ent node, a routine that calls a second routine, 


proc function node, that processes all of the functions. 
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The proc function node routine tracks sequentially through the appropriate 
function node (see Figure 11 again) and stores data for every field. Since the 
ent node, gen sub node, ent non node, sub non node and der non node (as in 
Figure 5) may or may not have data aasociated with them,.we have chosen to 


placea "^" 


in the empty fields to maintain the integrity of the database. 

The functions associated with the gen sub nodes (as in Figure 7) are stored 
in a manner very similar to the process just described. The db ptr is set to point 
at the gen sub node and once again the proc function node routine is called. 

At this point the database for one ent dbid node has been stored. The pro- 
gram checks to see if any more ent dbid nodes remain to be stored. If so, the 


above procedures are repeated. If not, a "$" is inserted at the end of the data- 


base as an end of database marker. 


B. RETRIEVAL OF THE DAPLEX SCHEMA 

The process for retrieving the Daplex schemas from secondary storage and 
loading them into memory is almost a reverse of the storage procedure. Different 
structures are used, as the save module was written by one member of the team 
and the retrieval module by the other; otherwise, the process is basically a 
reversal. 

The routine that reads data into the first Daplex database, i.e., the first 
ent dbid node, is rd ent dbid node. The memory is first allocated, the pointers 
nulled, and then the first two fields, edn name and edn num nonent, (as in Fig- 
ure 5) are loaded into memory. The remaining fields are loaded in order along 
with the respective field data. 

The pointer sequences to the next allocated space in memory and the routine 
that reads in the data for the nonentity nodes, rd ent non node, is executed (as 
in Figure 8). As before, the entire nonentity node is processed at one time. 

The next structures to be filled, at least partially, are the entity nodes (as in 
Figure 6). As with wr ent node, the functions associated with rd ent node, and 
therefore the entities, are processed later. 

The generalized entity subtypes are the next nodes to be processed. As with 
the storage routine, only three of the fields gsn name, gsn num funct and 


gsn terminal, are processed in rd gen sub node (as in Figure 7). However, 
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unlike the storage routine, the remainder of the gen sub node is handled in two 
smaller routines, rd overlap ent node and rd overlap sub node. 

After the first three fields of the generalized subtypes are processed, the 
pointer is sequenced and the routine that handles the subtypes with one more 
entity supertypes, rd overlap ent node, is executed. The rd overlap ent node 
routine checks for the presence of subtypes with one or more supertypes and then 
loads those names into memory. The routine rd overlap sub node functions 
exactly as rd overlap ent node, but on the subtype supertypes. 

After the overlap nodes are processed, the pointer sequences and the subtype 
nonentity nodes are allocated and filed. This process occurs within the 
rd sub non node routine (as in Figure 9). 

The derived type nonentity nodes (as in Figure 10) are processed in exactly 
the same manner as the sub non node. The pointer is sequenced, the memory 
allocated, and data entered in exactly the same fashion. The functions associated 
with the entity nodes are the next items loaded into memory. The functions are 
loaded by first sequencing the pointer and then calling the routine responsible for 
loading the functions, rd function node. The rd function node routine, along 
with the previous routines, first allocates the necessary memory and then nulls 
the appropriate pointers. The routine then tracks through the function node (as 
in Figure 11) and loads those fields with data. Since it is possible for any of the 
ent nodes, gen sub nodes, ent non nodes, sub non nodes or der non nodes to 
be without data, the routine first checks those nodes to see if they contain a "°", 
the symbol for an empty node. Finally, the module checks to see if it has encoun- 
tered a "$", the symbol for end of database. If so, all processes are terminated. 

We have written a small main routine that first executes the retrieval of an 
existing database and then executes the saving of that database to a file. The 
main routine calls the two modules previously discussed and then executes a 
print statement for every retrieval and save action. This methodology has allowed 


the authors to more effectively debug the programs. 
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IV. THE LANGUAGE INTERFACE LAYER (LIL) 


The second set of modules that we will discuss concern LIL, the first modules 
in the Daplex mapping process. LIL is used to control the order in which the 
other modules are called, and allows the user to input transactions from either a 
file or the terminal. A transaction may take the form of either a database 
description (DBD) of a new database, or a Daplex request against an existing 
database. A single transaction may contain multiple requests, allowing a group 
of requests to perform a single task. For example, several "atomic" statements, 
those statements that are executed as an indivisible action with respect to the 
database, could be executed together as a single transaction. 

The mapping process occurs when LIL sends a single transaction to KMS. 
After the transaction has been received by KMS, KC is called to process the 
transaction. Control always returns to LIL, where the user may either continue 
with another transaction or close the session by exiting to the operating system. 

LIL is menu-driven, and when the transactions are read from either a file or 
the terminal, they are stored in the dap req info data structure. If the transac- 
tions are database descriptions, they are sent to the KMS in sequential order. If 
the transactions are Daplex requests, the user is prompted by another menu to 
selectively choose an individual request to be processed. The menus provide an 
easy and efficient way for the user to view and select the methods of request pro- 
cessing desired. Each menu is tied to its predecessor, so that by exiting one 
menu the user is moved up the "menu tree". This allows the user to perform 


multiple tasks in one session. 


A. THE LIL DATA STRUCTURES 

LIL uses three data structures to store the user’s transactions and control the 
transaction sent to KMS. It is important to note that these data structures are 
shared by both LIL and KMS. 

The first data structure is named tran_info and is shown in Figure 15. The 


first field of this record, ti first req, is the pointer to the first request data 
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struct tran info 


wan req info ti first req; 
union req info ti curr req; 
int ti no reg; 
ni 
Figure 15. The tran_ info Data Structure. 
structure that contains the union of all the language requests of MLDS 
(see Figure 16). The first request can originate from either a file or a terminal. 
The second field of tran_info is a pointer to the current transaction, set by LIL to 
tell the KMS the precise transaction to process next. The third field contains the 
number of transactions currently in the transaction list. This number is used for 
loop control when printing the transaction list to the screen, or when searching 
the list for a transaction to be executed. 

The second data structure used by LIL, req info, is a union of the language 
requests of MLDS, and is shown in Figure 16. It serves a routing control func- 
tion, in that it routes a transaction request to the appropriate database language. 
In this thesis, we are concerned only with the the fourth field of this structure, 
which contains a pointer to the dap req info data structure (see Figure 17), each 
copy representing a Daplex user transaction. 

The third data structure used by LIL is named dap req info. Each copy of 
this record represents a user transaction, and thus, is an element of the transac- 


tion list. The dap req info data structure is shown in Figure 17. The first field 


union req info 
{ 
struct rel req info *ri_rel reg; 
struct hie req info “ri hie reg; 
struct net req info *ri_net reg; 
struct dap req info “ri dap reg; 
struct ab req info “ri ab rea; 


l 


Figure 16. The req info Data Structure. 
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struct dap req info 


d 
char “dap reg; 
int dap req len; 
struct temp str info “dap in reg; 
struct dap req info *dap sub reg; 
struct dap req info — “dap next req; 


jj 
Figure 17. The dap req info Data Structure. 


of this record, dap req, is a character string that contains the actual Daplex 
transaction. The second field, dap req len, contains the length of the transac- 
tion. It is used to allocate the exact, and therefore minimal, amount of memory 
space for the transaction. The third field, dap in req, is a pointer to a list of 
character arrays that each contain a single line of one transaction. After all lines 
of a transaction have been read, the line list is concatenated to form the actual 
transaction, dap req. Ifa transaction contains multiple requests, the fourth field, 
dap sub req, points to the list of requests that make up the transaction. In this 
case, the field dap in req is the first request of the transaction. The last field, 


dap next req, is a pointer to the next transaction in the list of transactions. 


B. FUNCTIONS AND PROCEDURES 

LIL makes use of a number of functions and procedures in order to create the 
transaction list, pass elements of the list to KMS, and maintain the database 
schemas. We do not describe each of these functions and procedures in detail. 
Rather, we provide a general description of the LIL processes. 

1. Initialization 

The MLDS is designed to be able to accommodate multiple users, but in 

this version it is implemented to support only a single user. To facilitate the 
transition from a single-user system to a multiple-user system, each user possesses 
his own copy of a user data structure when entering the system. This user data 
structure stores all of the relevant data that the user may need during their ses- 
sion. All four modules of the language interface make use of this structure. The 


modules use many temporary storage variables, both to perform their individual 
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tasks, and to maintain common data between modules. The transactions, in user 
data language form, and mapped kernel data language form, are also stored in 
each user data structure. It is easy to see that the user structure provides conso- 
lidated, centralized control for each user of the system. When a user logs onto 
the system, a user data structure is allocated and initialized. The user ID 
becomes the distinguishing feature to locate and identify different users. The 
user data structures for all users are stored in a linked-list. When new users 
enter the system, their user data structures are appended to the end of the list. 
In our current environment there is only a single element on the user list. In a 
future environment, when there are multiple users, we simply expand the user list 
as described above. 
2. Creating the Transaction List 

There are two operations the user may perform. A user may define a 
new database or process Daplex requests against an existing database. The first 
menu that is displayed prompts the user to select the operation desired. Each 
operation represents a separate procedure to handle specific circumstances. The 


menu looks like the following: 


Enter type of operation desired 

(1) - load a new database 

(p) - process old database 

(x) - return to the operating system 
ACTION ----> _ 


For either choice (i.e., l or p), another menu is displayed to the user 
requesting the mode of input. This input may always come from a data file. If 
the operation selected from the previous menu had been "p", then the user may 
also input transactions interactively from the terminal. The generic menu looks 


like the following: 
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Enter mode of input desired 
(f) - read in a group of transactions from a file 
(t) - read in transactions from the terminal 
(x) - return to the previous menu 


ACTON => 


Note that the choice "t" would be omitted if the operation selected from the pre- 
vious menu had been to load a new database. Again, each mode of input selected 
corresponds to a different procedure to be performed. The transaction list is 
created by reading from the file or terminal, looking for an end-of-transaction 
marker or an end-of-file marker. These flags tell the system when one transaction 
has ended, and when the next transaction begins. When the list is being created, 
the pointers to access the list are initialized. These pointers, ti first reg and 
ti curr req (as in Figure 15) are set to the first transaction read, in other words, 
to the head of the transaction list. 
3. Accessing the Transaction List 

Since the transaction list stores both DBDs and Daplex requests, two 
different access methods have to be employed to send the two types of transac- 
tions to the KMS. We discuss the two methods separately. In both cases, the 
KMS accesses a single transaction from the transaction list. It does this by read- 
ing the transaction pointed to by the request pointer, ti curr req, of the 


tran info data structure (as in Figure 15). Therefore, it is the job of LIL to set 


this pointer to the appropriate transaction before calling KMS. 


a. Sending DBDs to KMS - When the user specifies the 
filename of DBDs (input from a file only), further 
user intervention is not required. To produce a new 
database, the transaction list of DBDs is sent to KMS 
via a program loop. This loop traverses the transaction 


list, calling KMS for each DBD in the list. 


b. Sending Daplex Requests to KMS - In this case, after 
the user has specified the mode of input, the user conducts 
an interactive session with the system. First, all Daplex 
requests are listed to the screen. As the requests are 
listed from the transaction list, a number is assigned to 
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each transaction in ascending order, starting with the number 
one. The number appears on the screen to the left of the 
first line of each transaction. Note that each transaction 
may contain multiple requests. Next, an access menu is 
displayed which looks like the following: 


Pick the number or letter of the action desired 
(num) - execute one of the preceding transactions 
(d) - redisplay the list of transactions 
(r) - reset the currency pointer to the root 
(x) - return to the previous menu 


ACTION ----> _ 


Since Daplex requests are independent items, the order in which they are 
processed does not matter. The user has the option of executing any number of 
Daplex requests. A loop causes the menu to be redisplayed after any Daplex 
request has been executed so that further choices may be made. The selection 
"r" causes the currency pointer to be repositioned to the root of the entity- 
relationship schema so that subsequent requests may access the complete data- 
base, rather than be limited to beginning from a current position established by 
previous requests. 

4. Calling the KC 

As mentioned earlier, LIL acts as the control module for the entire 
system. When KMS has completed its mapping process, the transformed transac- 
tions have to be sent to KC to interface with the kernel database system. For 
DBDs, KC is called after all DBDs on the transaction list have been sent to 
KMS. The mapped DBDs have been placed in a mapped transaction list that 
KC is going to access. Since Daplex requests are independent items, the user 
should wait for the results from one Daplex request before issuing another. 
Therefore, after each Daplex request has been sent to KMS, KC is immediately 
called. The mapped Daplex requests are placed on a mapped transaction list, 
which KC may easily access. 

5. Wrapping-up 
Before exiting the system, the user data structure described in Chapter II 


(as in Figure 12) has to be deallocated. The memory occupied by the user data 
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structure is freed and returned to the operating system. Since all of the user 


structures reside in a list, the exiting user’s node has to be removed from the list. 
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V. THE KERNEL MAPPING SYSTEM (KMS) 


KMS is the second module in the Daplex mapping interface and is called 
from the language interface layer (LIL) when LIL has received Daplex requests 
input by the user. The function of KMS is to: (1) parse the request to validate 
the user’s Daplex syntax, (2) translate, or map, the request to an equivalent 
ABDL request, and (3) perform a semantic analysis of the current ABDL request 
generated relative to the request generated during a previous call to KMS. Once 
an appropriate ABDL request, or set of requests, has been formed, it is made 
available to the kernel controller (KC) which then prepares the request for execu- 


tion by MBDS. KC is discussed in Chapter VI. 


A. AN OVERVIEW OF THE MAPPING PROCESS 

From the description of the KMS functions above we immediately see the 
requirement for a parser as a part of the KMS. This parser validates the Daplex 
syntax of the input request. The parser grammar is the driving force behind the 
entire mapping system. 

1. The KMS Parser / Translator 

The KMS parser has been constructed by utilizing Yet-Another-Compiler 

Compiler (YACC) [Ref. 17]. YACC is a program generator designed for syntac- 
tic processing of token input streams. Given a specification of the input language 
structure (a set of grammar rules), the user’s code to be invoked when such struc- 
tures are recognized, and a low-level input routine, YACC generates a program 
that syntactically recognizes the input language and allows invocation of the 
user’s code throughout this recognition process. The class of specifications 
accepted is a very general one: LALR(1) grammars. It is important to note that 
the user’s code mentioned above is our mapping code that is going to perform the 
Daplex-to-ABDL translation. As the low-level input routine, we utilize a Lexical 
Analyzer Generator (LEX) (Ref. 18]. LEX is a program generator designed for 


lexical processing of character input streams. Given a regular-expression 
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description of the input strings, LEX generates a program that partitions the 
input stream into tokens and communicates these tokens to the parser. 

The parser produced by YACC consists of a finite-state automaton with 
a stack that performs a top-down parse, with left-to-right scan and a one token 
look-ahead. Control of the parser begins initially with the highest-level grammar 
rule. Control descends through the grammar hierarchy, calling lower and lower- 
level grammar rules while searching for appropriate tokens in the input. As the 
appropriate tokens are recognized, some portions of the mapping code are 
invoked directly. In other cases, tokens are propagated upwards through the 
grammar hierarchy until a higher-level rule has been satisfied, and a further 
translation is performed. When all of the necessary lower-level grammar rules 
have been satisfied and control has ascended to the highest-level rule, the parsing 
and translation processes are complete. In Section B, we give an illustrative 
example of these processes. We also describe the subsequent semantic analysis 
necessary to complete the mapping process. The reader is reminded that Appen- 
dix C contains the code for our implementation, written in C. 

2. The KMS Data Structures 

KMS utilizes just two structures that are defined in the interface. Natur- 
ally, KMS requires access to the Daplex input request structure discussed in 
Chapter II, the dpi dml tran (see Figure 14 again) structure. However, the only 
two data structures to be discussed here are those unique to the KMS. 

Both of these structures are shown in Figure 18. The first of these, 
dap kms info, is a record that contains information, not of immediate use, that 
has been accumulated by the KMS during the grammar-driven parse. This 
record allows the information to be saved until a point in the parsing process 
where it may be utilized in the appropriate portion of the translation process. 
The first four fields in this record, point to the same structure, ident list, the 
second structure of Figure 18, which temporarily holds a list of names for com- 
parison with the  identifiers, subtype indicators, overlap sub node or 
overlap ent node, and uniqueness identifiers, respectively. These names are those 
of attributes whose values are retrieved from the database. The remaining fields 


of dap kms info contain pointers to Daplex node structures previously discussed 
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struct dap kms info 


{ 


struct ident list “dki temp ptr; 
struct ident list “dki id ptr; 
struct ident list “dki overfirst ptr; 
struct ident list *dki namel ptr; 
struct der non node dki der non; 
struct sub non node dki sub non; 
struct ent non node dki ent non; 
struct function node dki funct; 
struct ent value “dki ev ptr; 


If 


struct ident list 


{ 
char il name [ENlength + 1]; 
struct ident list “il next; 


} 


Figure 18. The KMS Data Structures. 


in Chapter II. The remaining field of ident list points to the next name in the 
list. At the conclusion of the mapping process, and before control is returned to 
LIL, all data structures unique to KMS that have been allocated during the map- 


ping process are freed. 


B. POSSIBLE FACILITIES PROVIDED BY AN IMPLEMENTATION 

As we reached this stage in the implementation, we were confronted with two 
problems. First, the deadline date for completion of this project was rapidly 
approaching, and second, the amount of code left to produce was nearly equal to 
the amount of code that we had provided to this point. In addition, due to the 
complexity of the entity-relationship model, the amount of code produced for the 
Daplex implementation had met or exceeded the amount of code for each of the 
implementations of DL/I, SQL, and CODASYL [Refs. 12, 13 and 19]. Accord- 
ingly, a decision was made to discontinue the implementation effort for this thesis 


and leave the remainder for another thesis. 
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In the remainder of this chapter, we discuss those Daplex facilities that may 
be provided by an implementation of the entity-relationship interface. We do not 
discuss the Daplex-to-ABDL translation in detail. Rather, we provide only an 
overview of the salient features of KMS. The interested reader is referred to 
Goisman [Ref. 11], for a detailed discussion of the Daplex-to-ABDL translation. 
User-issued requests may take two forms, either Daplex database definitions, or 
Daplex database manipulations. In the case of database manipulations, we also 
describe the semantic analysis necessary to complete the mapping process. 

1. Database Definitions 

When the user informs the LIL that the user wishes to create a new 
database, the job of the KMS is to build a entity-relationship database schema 
that corresponds to the database definition input by the user. The LIL initially 
allocates a new database identification node (ent_dbid node shown in Figure 5) 
with the name of the new database, as input by the user. The LIL then sends 
the KMS a complete database description which takes the form of a Daplex data- 


base declaration as follows: 


DATABASE db name IS 
[non entity type declarations] 
entity type declarations 
[entity type constraints] 
END [db namel; 


Where: 


db name: is a valid identifier that is a unique 
name of the database being declared. 

non entity type declarations: are declarations 
of string types, scalar types, and 
numeric constants. 

entity type declarations: are declarations of 
entity types, their functions, and 
generalization hierarchies. 

entity type constraints: define those properties 
of the declared entity type that must 
remain invariant under any operation on 
values of those types. 
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Figure 19. The University Database Schema 
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The non entity type declarations, entity type declarations, and 
entity type constraints that form a database declaration can be intermixed in 
any order. However, all types must be declared (either completely or partially) 
before the name of the type can appear in another declaration. Accordingly, it is 
apparent that for each ent dbid node, a differing mix of ent node(s), 
gen sub node(s), ent non node(s) and function node(s) is possible. 

When LIL has forwarded all database definitions entered by the user, a 
completed database schema is the result. A completed database schema that uses 
the University database of Figure 3 is shown in Figure 19. The entity- 
relationship database schema, when completed, serves two purposes. First, when 
creating a new database, it facilitates the construction of the MBDS template 
and descriptor files. Secondly, when processing requests against an existing data- 
base, it allows a validity check of the entity, nonentity, and function names. It 
also serves as a source of information for the type checking. 

2. Database Manipulations 

When the user wishes LIL to process requests against an existing data- 
base, the first task of the KMS is to map the user’s Daplex request to an 
equivalent ABDL request. The only ABDL requests available are RETRIEVE, 
RETRIEVE-COMMON, INSERT, UPDATE and DELETE. To these ABDL 
requests KMS must map the Daplex operators ASSIGNMENT, INCLUDE, 
EXCLUDE, CREATE, DESTROY, MOVE and PROCEDURE CALL. 

We will not discuss PROCEDURE CALL as it includes utility pro- 
cedures such as print and cancel, and these operations are accommodated by the 
MLDS and ABDL operators. In addition, we will not discuss the RETRIEVE- 
COMMON statement of ABDL. Further, the mappings will be discussed at a 
level of abstraction that does not imply a specific coding implementation, but 
rather, a general algorithm that will accomplish the mapping. 

The first mapping that we will discuss is the CREATE mapping. A 
CREATE statement is used to create a new database entity. The structure for 
CREATE is shown in Figure 20. 

The function names and values are those function pairs that are associ- 


ated with a specific entity type or entity subtype. The entity types and entity 
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CREATE 


list of function names 

list of function values 

list of entity types and entity subtypes 
to be created 

pointer to RETRIEVE 

pointer to INSERT 
or 

pointer to INSERT 


pointer to INSERT 


Figure 20. The CREATE Data Structure. 


subtypes to be used to CREATE a new database entity are maintained in a list 
and the creation process continues as long as there are entity types or entity sub- 
types in the list. 

In general, the CREATE algorithm first determines if the new entity 
associated with the function pair in question is an existing supertype or a termi- 
nal type. If so, then the appropriate supertype/terminal type previously associ- 
ated with the function pair is RETRIEVEd from the database, and the new 
entity type or entity subtype is INSERTed. Otherwise, the new entity type or 
entity subtype is simply INSERTed into the database. 

The next mapping that we will discuss is the DESTROY mapping shown 
in Figure 21. The function names and values for the DESTROY structure are 
the same as those associated with the CREATE structure, and in fact, these 
function pairs are the same for all of the subsequent Daplex mappings that we 
will discuss. The entity types and entity subtypes that are to be DESTROYed 
are maintained in a list and the destruction process continues as long as there are 
items in the list to be DESTROYed. 

The DESTROY algorithm only DELETEs entities, and further, only 
DESTROYs those entities that are not referenced by some database function. 
Therefore an entity is RETRIEVEd and a determination made as to whether the 
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DESTROY 


list of function names 

list of function values 

list of entity types and entity subtypes 
to be destroyed 

pointer to RETRIEVE 

pointer to DELETE 


pointer to DELETE 


Figure 21. The DESTROY Data Structure. 


entity is referenced by a database function. If so, then the DESTROY operation 
is aborted. If not, the entity is DELETEd and the process continues for the next 
entity to be DESTROYed until the list is empty. 

The FOR EACH structure is shown in Figure 22. The FOR EACH 
structure uses the set of database values as a pivot for the iteration process. 
Each element of the set of database values is paired with a set expression for the 
execution of the loop. The set expression values may be entites, function names 
or function values and provide the set of values over which the loop is iterated. 


Each RETRIEVE is accomplished on a set expression value and an element of 


FOR EACH 


list of sets of database values 
set expression values 


pointer to RETRIEVE 


pointer to RETRIEVE 


Figure 22. The FOR EACH Data Structure. 
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the set of database values acts as the second arguement for the operation to be 
carried out by FOR EACH. The RETRIEVESs continue until the list of sets of 
database values is empty. 

The ASSIGNMENT statement structure is shown in Figure 23. The pur- 
pose of the ASSIGNMENT statement is to assign entity values to single-valued 


functions. 


ASSIGNMENT 


list of function names 

list of function values 

list of entity types and subtypes 
of each function 

pointer to RETRIEVE 
or 

pointer to RETRIEVE 

pointer to RETRIEVE 

pointer to RETRIEVE 


pointer to RETRIEVE 
REPEAT 

pointer to RETRIEVE 

or 

pointer to RETRIEVE 
pointer to RETRIEVE 
pointer to RETRIEVE 
pointer to RETRIEVE 


pointer to RETRIEVE 
pointer to RETRIEVE 
pointer to RETRIEVE 
pointer to UPDATE 


pointer to UPDATE 


Figure 23. The ASSIGNMENT Data Structure. 
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purpose of the ASSIGNMENT statement ıs to assign entity values to single- 
valued functions. To accomplish this, the ASSIGNMENT algorıthm searches 
through the database by RETRIEVing and comparing the function to be 
assigned to all of the functions in the database. In this case, it is assumed that 
the function in question exists and can be found. 

The search is accomplished by going first to a supertype and comparing 
the functions associated with each of the subtypes until a match is found. If no 
match is found, then each subtype is treated as a supertype and the search con- 
tinues downward through the tree until the function is found or a terminal type 


is reached. 
INCLUDE 


list of function names 

list of function values 

list of entity types and subtypes 
of each function 

pointer to RETRIEVE 
or 

pointer to RETRIEVE 

pointer to RETRIEVE 

pointer to RETRIEVE 


pointer to RETRIEVE 
pointer to INSERT 


pointer to INSERT 


Figure 24. The INCLUDE Data Structure. 

Once the function is found, the search begins for all of the function 
values. This searching process is similar to the process for the function lookup 
and repeats until the desired value associated with the function in question is 
found. Once found, the value is then UPDATEd. The entire process continues 


until the list of functions and values to be assigned is empty. 
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The INCLUDE statement structure is shown in Figure 24. The purpose 
of the INCLUDE statement is to add either a single value or a set of values to a 
set-valued function. It functions in a manner similar to the ASSIGNMENT 
statement in that the search is accomplished by going first to a supertype and 
then comparing the functions associated with each of the subtypes until a match 
with the desired function is found. If no match is found, then each subtype is 
treated as a supertype and the search continues downward through the tree until 
the function is found or a terminal type is reached. Once the function is found, 


the single value or set of values that the user wishes to INCLUDE is INSERTed. 


EXCLUDE 


lıst of function names 

list of function values 

list of entity types and subtypes 
of each function 

pointer to RETRIEVE 
or 

pointer to RETRIEVE 

pointer to RETRIEVE 

pointer to RETRIEVE 


pointer to RETRIEVE 
pointer to DELETE 


pointer to DELETE 


Figure 25. The EXCLUDE Data Structure. 


The EXLUDE statement structure is almost identical to the INCLUDE 
statement structure. As can be seen from Figure 25, the only difference is that 
once the desired function is found the value is DELETEd instead of INSERTed. 

The final structure that we will discuss is that of the MOVE statement, 
shown in Figure 26. The purpose of the MOVE statement is to change the sub- 
types to which an entity belongs. The MOVE statement algorithm first performs 
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MOVE 


list of function names 

list of function values 

list of entity types and subtypes 
to be moved 

pointer to RETRIEVE 

pointer to RETRIEVE 

pointer to DELETE 

pointer to RETRIEVE 

pointer to INSERT 


pointer to INSERT 


Figure 26. The MOVE Data Structure. 


a RETRIEVE from the database using functions in entity valued expressions as a 
search key, or just using the entity valued expressions if the associated functions 
are not given. When the entity valued expressions are located, the corresponding 
functions are then searched for and RETRIEVEd. The entity valued expression 
is then DELETEd from its current location in the database and the new entity to 
which the entity valued expression is to be associated is RETRIEVEd. The 
entity valued expression and its associated function is then INSERTed into the 


new location. 
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VI. CONCLUSION 


In this thesis, we have presented a partial specification and implementation 
of a Daplex language interface . This is one of four language interfaces that the 
multi-lingual database system will support. When complete, the multi-lingual 
database system will be able to execute transactions written in four well-known 
and important data languages, namely, SQL, DL/I, Daplex, and CODASYL. In 
our case, we support Daplex transactions with our language interface by way of a 
LIL and KMS, and have left the production of a Daplex KC and KFS for a 
future thesis. Related theses by Benson and Wentz, Kloepping and Mack, and 
Emdi [Refs. 12, 13 and 19] have examined the specification and implementation 
of the DL/I, SQL and CODASYL-DML language interfaces, respectively. All of 
these works are a part of the ongoing research being conducted at the Laboratory 
for Database Systems Research, Naval Postgraduate School, Monterey, 
California. 

The need to provide an alternative to the development of separate 
stand-alone database systems for specific data language models has been the 
motivation for this research. In this regard, we have first demonstrated the feasi- 
bility of a multi-lingual database system (MLDS) by showing how a software 
Daplex language interface can be constructed. 

A major goal has been to design a Daplex-to-MBDS interface without 
requiring any change be made to MBDS or ABDL. Our partial implementation 
may be completely resident on a host computer or the controller. All Daplex 
transactions will be performed in the Daplex interface. MBDS continues to 
receive and process transactions written in the unaltered syntax of ABDL. In 
addition, our implementation has not required any change to the syntax of 
Daplex. The interface will be completely transparent to the Daplex user as well 
as to the MBDL. 

In retrospect, our level-by-level, top-down approach to the design of the 


interface has been a good choice. This implementation methodology has been the 


02 


most familiar to us and proved to be relatively efficient in time. In addition, 
this approach permits follow-on programmers to easily maintain and modify 
(when necessary) the code. Subsequently, they will know exactly where we 
have stopped and where they should begin because we have included many of 
the lower-level stubs. Hence, it is an easy task to fill in these stubs with code. 

To our great disappointment we have not been able to complete the imple- 
mentation. The primary reason for our failure has been the complexity of the 
entity-relationship model and the Daplex language. This complexity has been 
directly responsible for our underestimation of the amount of code necessary for 
the Daplex interface implementation. To date, we have produced an amount of 
code at least equal to each of the other complete implementations, and are faced 
with producing an equal amount in order to complete the implementation. 

However, we have shown that a Daplex interface can be implemented as part 
of a MLDS. We have provided a partial software structure to facilitate this 
interface, and we have developed actual code for implementation. The next step 
is to complete the development of the Daplex interface. When complete, this 
interface can be integrated with the other implementations and tested as a whole 
to determine how efficient, effective, and responsive it can be to a users’ needs. 
The results may be the impetus for a new direction in database system research 


and development. 
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APPENDIX A 


DAPLEX DATA STRUCTURES 


/* this is a list of the data structures for the daplex project */ 


union dbid node 

/* Union definition for the database. There is a common */ 
/* database node definition that spans the four types of */ 
/* language interfaces. Abbr: rel(ational), hie(archical),*/ 
/* net(work), and entity-relationship. */ 
{ 

struct rel dbid node “dn rel; 

struct hie dbid node *dn hie; 

struct net dbid node “dn net; 
struct ent dbid node  *dn dap; 


} 


struct ent dbid node 
/* structure def for each entity-relationship dbid node */ 


{ 


char edn name DBNLength + 1); 
struct ent non node “*edn nonentity; 


int edn_num_nonent; /* number of nonentity types */ 
struct ent node *edn entity; 

int edn num ent; /* number of entity types */ 

struct gen sub node *edn subptr; 

int edn num gen; /* number of gen subtypes */ 

struct sub non node  *edn nonsubptr; 

int edn num nonsub; /* number of nonentity subtypes */ 
struct der non node  *edn nonderptr; 

int edn num der; /* nmbr or nonentity derived types */ 


struct ent dbid node “edn next db; 


e 


struct ent_node 
/* structure definition for each entity node */ 

{ 
char en name[ENLength * 1); 
int en num funct; /* number of assoc. functions */ 
int en_ terminal; /* if true (=1) it is a terminal type */ 
struct function node “en ftnptr; 
struct ent node “en next ent; 


E 
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struct gen sub node 
/* structure def for each generalization (supertype/subtype) node */ 


{ 


char 
int 
int 
struct 
int 
struct 
struct 
int 
struct 


E 


gsn name[ENLength + 1); 

gsn num funct; /* number of assoc. functions*/ 

gsn terminal; /* if true (—1) it is a terminal type */ 
overlap ent node *gsn entptr; /* ptr to entity supertype */ 
gsn num ent; /* number of entity supertypes */ 

function node  *gsn ftnptr; 

overlap sub node *gsn subptr; /* ptr to subtype supertype */ 
gsn num sub; /* number of subtype supertypes */ 

gen sub node *gsn next genptr; 


struct ent non node 
/* structure def for each base-type nonentity node */ 


{ 


Cc 
c 


har 
har 


ınt 
int 


int 


S 


truct 


int 


S 


b 


truct 


enn name[ENLength + 1]; 
enn type; /* either i(nteger), s(tring), 
f(loat), e(numeration), or b(oolean) */ 
enn total length; /* max length of base-type value */ 
enn range; /* true or false depending on whether 
there is a range. If a range exists, 
there must be two entries into ent value */ 
enn num values; /* number of actual values */ 
ent value /*enn value; /* actual value of base-type */ 
enn constant; /* boolean to refelect constant value */ 
ent non node *enn next node; 


struct sub non node 
/* structure def for each subtype nonentity node */ 


{ 


E 
Cc 


har 
har 


int 
int 


int 


S 
S 


b 


truct 
truct 


snn name|ENLength + 1]; 
snn type; /* either i(nteger), s(tring), 
f(loat), e(numeration), or b(oolean) * / 

snn total length; /* max length of subtype value */ 
snn range; /* true or false depending on whether 

there is a range. If a range exists, 

there must be two entries into ent value */ 
snn num values; /* number of actual values */ 
ent_value *snn value; /* actual value of subtype */ 
sub non node  *snn next node; 
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struct der non node 


"um structure def for each derived type nonentity node u 


{ 


char 
char 


ınt 
int 


int 
struct 
struct 


y 


dnn name[ENLength + 1]; 
dnn type; /* either i(nteger), s(tring), 
f(loat), e(numeration), or b(oolean) */ 

dnn total length; /* max length of derived type value */ 
dnn range; /* true or false depending on whether 

there is a range. If a range exists, 

there must be two entries into ent value */ 
dnn num values; /* number of actual values */ 
ent value *dnn value; /* actual value of derived type */ 
der non node “dnn next node; 


struct function node 
/* structure definition for each function type declaration */ 


struct 


char fn name|ENLength+1]; 
char fn type; /* either f(loat), i(nteger), s(tring), 
b(oolean), or e(numeration) */ 
int fn range; /* Boolean if range of values */ 
int fn total length; /* max length */ 
int fn num value; /* number of actual values */ 
struct ent value *fn value; /* actual value */ 
struct ent node *fn entptr; /* ptr to entity type */ 
struct gen sub node *fn subptr; /* ptr to entity subtype */ 
struct ent non node *fn nonentptr; /* ptr to nonentity type */ 
struct sub non node *fn nonsubptr; /* ptr to nonentity subtype */ 
struct der non node *fn nonderptr; /* ptr to nonentity dertype */ 
int fn entnull; /* initialized false set true for no value */ 
int fn unique; /* init false - unique if true */ 
struct function node *fn next fntptr; 
user info 


/* This structure is used to maintain information on all of the */ 
/* current users of the particular interface. The interface type */ 
/* is determined by the li info structure. */ 


{ 


char ui_uid{UIDLength + 1]; /* The user id */ | 
union — li info ui li type; /* li is for language interface */ 
struct user info “ui next user; 


i 
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union li info 
/* This union is used to choose a particular data structure. */ 
/* The data structure chosen is interface dependent, i.e., */ 
/* li sql is for the relational interface, li dli is for the */ 
/* hierarchical interface and li dml is for the network int. */ ` 


/* and li dap is for the entity relationship interface. E 
struct sql info li sal; 
struct dli info li dli; 


struct dml info li dml; 
struct dap info li dap; 


b 


struct dap info 
/* The structure for info about the daplex request for a user */ 
i 
struct curr db info dpi curr db; /* The current user */ 
struct — file info dpi file; /* The dap files of request */ 


struct tran info dpi dml tran; /* The dml transactions */ 
struct ddl info “dpi ddl files; /* The abdl ddl files */ 

Int dap_operation; /* The operation to be performed */ 

int dap answer; 

int dap error; 

int dap buff count; 

union kms info dpi kms data; 

union kfs info dpi kfs data; 

union kc info dpi kc data; 


}; 
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APPENDIX B 
THE STORAGE AND RETRIEVAL MODULES 


STORAGE 


/* this file is savefree.c */ 


# include <stdio.h> 
#include "flags.def™ 

# include "licommdata.def" 
# include "struct.def" 
#include "dap.ext" 


strfr dap db list() 


/* begin strfr dap db list */ 
struct ent dbid node *db_ptr; /* ptr to the database list */ 
struct ent non node *non_ent ptr; /* ptr to the nonentity node */ 
struct ent value *entval ptr; /* ptr to the entity value node */ 
struct sub non node “*subnon ptr; /* ptr to nonent subtype node */ 
struct der non node ‘*dernon ptr; /* ptr to derived subtype node */ 
struct ent node *ent node ptr; /* ptr to the entity node */ 
struct gen sub node *gen ptr; /* ptr to the gen subtype node */ 
struct overlap ent_node *overlapent_ ptr; /* ptr to the entity subtype */ 
struct overlap sub node *overlapsub ptr; /* ptr to the term subtype */ 
struct function node . *func ptr; /* ptr to the function node */ 
FILE “dap fid; 
char temp strfNUMDIGIT + 1]; 


/* this function saves the entity/functional schema */ 
/* back to a file and frees the list it occupied */ 


#ifef EnExFlag 
printf("Enter strfr dap db list"); 
# endif 


if ((dap_fid = fopen (DAPDBSFname, "w")) == NULL) 
{ /* begin if NULL */ 
printf("Unable to open %s", DAPDBSF name); 
ring the bell(); 


#ifef EnExFlag 

printf("Exitlstrfr dap db list"); 
#endif 

return; 


} /* end if NULL */ 
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db ptr = dbs dap head ptr.dn dap; 
while (db ptr != NULL) 
[ /* the database is stored to the file here */ 


wr ent dbid node(dap fid,db ptr); 
non ent ptr — db ptr->edn nonentity; 


while (non ent ptr !— NULL) 
{ /* begin while non ent ptr !— NULL */ 


proc ent non node(dap fid, non ent ptr); 
non ent ptr — non ent ptr -- enn next node; 


) /* end while non ent ptr !2 NULL */ 


ent node ptr = db ptr -> edn entity; 
num to str(db ptr -> edn num ent, temp str); 
writestr(dap fid, temp str); 


while (ent_node ptr != NULL) 
{ /* begin while ent_node ptr != NULL) 7 


wr ent node(dap fid, ent node ptr); 
ent node ptr — ent node ptr -» en next ent; 


) /* end while ent node ptr != NULL */ 


gen ptr — db ptr -> edn subptr; 
num to str(db ptr -» edn num gen, temp str); 
writestr(dap fid, temp str); 


while (gen. ptr !— NULL) 
( /* begin while gen ptr != NULL */ 


wr gen sub node(dap fid,gen ptr); 
gen ptr = gen pir -> gsn next genpir; 


} /* end while gen_ptr != NULL */ 
gen_ptr = db_ptr -> edn_subptr; 


while(gen ptr != NULL) 
( /* begin while gen ptr !— NULL */ 


num to str(gen ptr -> gsn num ent, temp str); 
writestr (dap fid, temp str); 
overlapent ptr = gen ptr -> gsn entptr; 


while( overlapent_ptr != NULL) 
{ /* begin while overlapent_ptr != NULL */ 


writestr(dap fid, overlapent ptr -» oen name -» en name); 
overlapent ptr = overlapent ptr -» oen next name; 


) /* end while overlapent_ptr != NULL */ 
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num to str(gen_ptr -> gsn num sub, temp str); 
writestr(dap fid, temp str); 
overlapsub ptr — gen ptr -> gsn subptr; 


while (overlapsub ptr !< NULL) 
( /* begin while overlapsub ptr != NULL */ 


writestr(dap fid, overlapsub ptr -» osn name -» gsn name); 
overlapsub ptr = overlapsub ptr ->osn next name; 


} /* end while overlapsub ptr != NULL */ 
gen ptr — gen ptr -— gsn next genptr; 
) /* end while gen ptr !'= NULL */ 
/* Process the sub non nodes */ 
subnon ptr — db ptr -» edn nonsubptr; 
num to str (db ptr -^ edn num nonsub, temp str); 


writestr (dap fid, temp str); 


while (subnon_ptr != NULL) 
{ /* begin while subnon_ptr <> NULL */ 


proc sub non node (dap fid,subnon ptr); 
subnon ptr — subnon ptr -> snn next node; 


} /* end while subnon_ptr <> NULL */ 


/* Process the derived nodes */ 
dernon ptr = db ptr -> edn_nonderptr; 
num to str(db ptr -> edn num der, temp str); 


writestr(dap fid, temp str); 


while (dernon ptr '2 NULL) 
{ /* begin while dernon_ptr <> NULL */ 


proc der non node (dap fid,dernon ptr); 
dernon ptr = dernon ptr -» dnn next node; 


} /* end while dernon_ptr <> NULL */ 
/* Process the Ent function nodes */ 
ent node ptr — db ptr -> edn entity; 


while (ent node ptr !— NULL) 
( /* begin while ent node ptr !2 NULL */ 


wr all ent node(dap fid, ent node ptr); 
ent node ptr — ent node ptr -- en next ent; 


) /* end while ent node ptr !— NULL */ 
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gen ptr = db ptr -> edn _ subptr; 


while (gen ptr! NULL) 
( /* begin while gen ptr !2 NULL */ 


func ptr — gen ptr -» gsn ftnptr; 


while (func ptr !2 NULL) 
( /* begin while func ptr !2 NULL */ 


proc function node(dap fid,func ptr); 
gen ptr-»gsn ftnptr = func ptr-»fn next fntptr; 
free function node(func ptr); 
func ptr — gen ptr -^ gsn ftnptr; 
) /* end while func ptr !- NULL */ 
gen ptr — gen ptr-» gsn next genptr; 
) /* end while gen ptr != NULL */ 
db ptr — db ptr -^ edn next db; 
) /* end while db ptr !'Z NULL */ 
putc(’$’, dap fid); 
putc(”, dap fid); 


#iflef EnExFlag 
printf("Exit strfr dap db list"); 
#endif 


} /* end strfr dap db list */ 
wr ent dbid node( ffid, db ptr) 


FILE *ffid; 
struct ent dbid node *db ptr; 


{ 

char temp str NUMDIGIT + 1); 

/* this function writes the database * / 

/* structure’s contents to the save file */ 

#iflef EnExFlag 

printf("Enter wr ent dbid node"); 
#endif 

writestr(ffid, db ptr -> edn name); 

num to str(db ptr -> edn num nonent, temp str); 

writestr(ffid, temp str); 
#iflef EnExFlag 

printf("Exit wr ent dbid node"); 
#endif 


) /* end wr ent dbid node */ 
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proc ent non node(fid, non ptr) 
FILE *fid; 
struct ent non node  *non ptr; 
[ /* begin proc ent non node */ 
struct ent value *val ptr; 


char temp stri'NUMDIGIT + 1]; 


#iflef EnExFlag 
printf("Enter proc ent non node"); 


#endif 


writestr(fid, non ptr -» enn name); 

putc(non ptr -» enn type, fid); 

putc(”, fid); 

num to str(non ptr -» enn total length, temp str); 
writestr(fid, temp str); 

num to str(non ptr -» enn range, temp str); 
writestr(fid, temp str); 

num to str(non ptr -» enn constant, temp str); 
writestr(fid, temp str); 

num to str(non ptr -» enn num values, temp str); 
writestr(fid, temp str); 

val ptr = non ptr -» enn value; 


while (val ptr != NULL) 
{ /* begin while val_ptr <> NULL */ 


writestr(fid,val ptr -» ev value); 
val ptr = val ptr -» ev next value; 


) /* end while val ptr «» NULL */ 


#iflef EnExFlag 
printf("Exit proc ent non node"); 


#endif 
) /* end proc ent non node */ 


wr ent node(fid,ent ptr) 
FILE *fid; 
struct ent node “ent ptr; 
( /* begin wr ent node */ 
char temp str NUMDIGIT - 1); 


#ifef EnExFlag 
printf("Enter wr ent node"); 


#endif 


writestr(fid, ent ptr -» en name); 
num to str(ent ptr -» en num funct, temp str); 
writestr(fid, temp str); 
num to str(ent ptr-» en terminal, temp str); 
writestr(fid, temp str); 


#iflef EnExFlag 
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printf("Exit wr_ent node"); 
# endif 


) /* end wr ent node */ 


wr gen sub node(fid,gs ptr) 
FILE “fid; 
struct gen sub node “gs ptr; 
( /* begin wr gen sub node * 
char temp strfNUMDIGIT + 1]; 


#ifef EnExFlag 
printf("Enter wr gen sub node"); 
#endif 


writestr(fid,gs ptr -> gsn name); 
num to str(gs ptr -> gsn num funct, temp str); 
writestr(fid, temp str); 
num to str(gs ptr -> gsn terminal, temp str); 
writestr(fid, temp str); 


#ifef EnExFlag 

printf("Exit wr gen sub node"); 
#endif 

) /* end wr gen sub node */ 


proc sub non node(fid, sub ptr) 
FILE *fid; 
struct sub non node “sub ptr; 
( /* begin proc sub non node */ 
FILE “fid; 
struct ent value “val ptr; 


char temp striNUMDIGIT + 1); 


#iflef EnExFlag 
printf("Enter proc sub non node"); 


#endif 


writestr(fid, sub ptr -» snn name); 

putc (sub ptr -» snn type, fid); 

putc(”, fid); 

num to str(sub ptr -» snn total length, temp str); 

writestr(fid,temp str); 
num to str(sub ptr -» snn range, temp str); 
writestr(fid, temp str); 

val ptr = sub ptr -> snn_value; 


while (val_ptr != NULL) 
{ /* begin while val_ptr <> NULL */ 


writestr(fid, val_ptr -> ev_value ); 
val ptr = val ptr -> ev_next_value; 


} /* end while val ptr <> NULL */ 
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#iflef EnExFlag 
printf("Exit proc sub non node"); 
#endif 


) /* end proc sub non node */ 


proc der non node(fid,der ptr) 
FILE  *fid; 
struct der non node *der ptr; 
( /* begin proc der non node */ 
struct ent value *val ptr; 


char temp str NUMDIGIT - 1); 


#iflef EnExFlag 
printf("Enter proc der non node'); 


#endif 


writestr(fid, der ptr -» dnn name); 
putc (der ptr -> dnn_type, fid); 

putc(", fid); 
num to str(der ptr -> dnn total length, temp str); 
writestr(fid, temp str); 
num to str(der ptr -> dnn range, temp str); 
writestr(fid, temp str); 
val ptr = der ptr->dnn value; 


while (val ptr != NULL) 
{ /* begin while val ptr <> NULL */ 


writestr(fid, val ptr -> ev value); 
val ptr = val ptr -> ev_next value; 


} /* end while val ptr <> NULL */ 


#iflef EnExFlag 
printf("Exit proc der non node"); 


#endif 
) /* end proc der non node */ 


wr all ent node(fid,ent ptr) 
FILE  *fid; 
struct ent node *ent_ptr; 
{ /* begin wr all ent node */ 
struct function node *funct ptr; 


char temp strfNUMDIGIT + 1]; 
#iflef EnExFlag 
printf("Enter wr all ent node"); 
#endif 


funct ptr = ent ptr -> en ftnptr; 


while (funct_ptr != NULL) 
{ /* begin while funct_ptr <> NULL */ 


proc function node(fid,funct ptr); 


64 


ent ptr->en ftnptr — funct ptr-> fn next fntptr; 
free function node(funct ptr); 
funct ptr = ent ptr-» en ftnptr; 


} /* end while funct ptr <> NULL S 


#iflef EnExFlag 

printf("Exit wr_all ent node"); 
#endif 

) /* end wr all ent node */ 


proc function node(fid,fptr) 

FILE  *fid; 

struct function node  *fptr; 

{ /* begin proc function node */ 
struct ent value “val ptr; 
struct ent node “eptr; 
struct gen sub node *gsptr; 
struct ent non node  *enptr; 
struct sub non node *snptr; 

struct der non node *dnptr; 

char temp strfNUMDIGIT + 1]; 


#iflef EnExFlag 
printf("Enter proc function node"); 


#endif 


writestr(fid, fptr -> fn_name); 

putc(fptr -> fn_type, fid); 

pute(”, fid); 

num to str(fptr -» fn range, temp str); 
writestr(fid, temp str); 

num to str(fptr -» fn total length, temp str); 
writestr(fid, temp str); 

num to str(fptr -» fn num value, temp str); 
writestr(fid, temp str); 

val ptr = fptr -> fn_value; 


while {val ptr != NULL) 
{ /* begin while val ptr <> NULL */ 


writestr ( fid, val ptr -» ev value); 
val ptr = val ptr -» ev next value; 


) /* end while val ptr <> NULL */ 
eptr = fptr -> fn_entptr; 

if(eptr != NULL) 
writestr(fid, eptr -> en_name); 

else 


writestr(fid, "*"); 


gsptr = fptr -> fn_subptr; 
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if(gsptr != NULL) 
writestr(fid, gsptr -> gsn name); 
else 
writestr(fid, " ^"); 


enptr — fptr -^ fn nonentptr; 


if(enptr != NULL) 

writestr(fid, enptr -» enn name); 
else 

writestr(fid, "*"); 


snptr = fptr -> fn_nonsubptr; 


if(snptr != NULL) 

writestr(fid, snptr -> snn_name); 
else 

writestr(fid, "*"); 


dnptr = fptr -> fn_nonderptr; 


if(dnptr != NULL) 

writestr(fid, dnptr -> dnn_name); 
else 

writestr(fid, " ^"); 


num to str(fptr -> fn_entnull, temp str); 
writestr(fid, temp str); 
num to str(fptr -> fn unique, temp str); 
writestr(fid, temp str); 


#ifef EnExFlag 


printf("Exit proc function node"); 


#endif 


) /* end proc function node */ 


free function node(func ptr) 


struct function node  *func ptr; 
{ /* begin free function node */ 


#ifef EnExFlag 


printf("Enter free function node"); 


#endif 


strepy(func ptr-> fn name, " "); 
func ptr -» fn type = >; 

func ptr -» fn range = O; 

func_ptr -> fn_total length = 0; 
func ptr -» fn num value = 0; 
func_ptr -> fn_value = NULL; 
func_ptr -> fn_entptr = NULL; 
func_ptr -> fn_subptr = NULL; 
func_ptr -> fn_nonentptr = NULL; 
func_ptr -> fn_nonsubptr = NULL; 
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func_ptr -> fn_nonderptr = NULL; 


func ptr -» fn entnull = 0; 
func ptr -» fn unique = 0; 
func ptr -» fn next fntptr = NULL; 


#iflef EnExFlag 

printf("Exit free function node"); 
#endif 

) /* end free function node */ 
RETRIEVAL 


/* This file is makelist.c */ 


#include <stdio.h> 

# include "flags.def™ 

AZ include "licommdata.def" 
#include "struct.def" 
#include "dap.ext" 


creat dap db list() 


struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
Int 
int 
int 
int 
int 
int 
int 
int 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 

FILE 


char 


ent dbid node “new db ptr, *db ptr; /* ptr to the enty-relationp node */ 
ent non node *new non ent ptr, *non ent ptr; /* ptr to nonenty node */ 
ent value *new entval ptr, *entval ptr; /* ptr to the enty value node */ 
sub non node *new subnon ptr, *subnon ptr; /*ptr to sub nonenty node */ 
ent node “new ent node ptr, *ent node ptr; /* ptr to the entity node */ 
gen sub node *new gen ptr, *gen ptr; /* ptr to gen super,subtype node */ 
overlap ent node “new overlapent ptr, *overlapent ptr; 

overlap sub node *new overlapsub ptr, *overlapsub ptr; 

function node *new func ptr, *func ptr; /* ptr to the function node */ 

der non node “new dernon ptr, *dernon ptr; /* ptr to nonent der node */ 


ed count, ent. count, funct count, num val; /* counters */ 
gen sub count, super count, sub super count; /* counters */ 
non sub count, non der count, enum count; 
done flag, first db, first nonnode; 
first enum, first. node, first func; 
first value, first gen sub, first. super; 
first sub super, first non sub; 
first non der; 


/* counters */ 
/* booleans */ 
/* booleans */ 
/* booleans */ 
/* booleans */ 
/* boolean */ 
ent dbid node *rd ent dbid node(); 


ent non node *rd ent non node(); 


ent value *rd ent value(); 
sub non node “rd sub non node(); 
ent node “rd ent nodef); 


gen sub node “rd gen sub nodef); 
overlap ent node *rd overlap ent node(); 
overlap sub node *rd overlap sub node(); 
function node *rd function node(); 
der non node “rd der non node(); 

“dap fid; 

temp _str[NUMDIGIT + 1); 
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/* This function retrieves and recreates the schema from the stored file */ 


#iflef EnExFlag 
printf ("Enter create dap db list"); 
# endif 


if ( (dap fid = fopen( DAPDBSF name, "r") ) == NULL) 


printf ("Unable to open file %s", DAPDBSFname); 
ring the bell(); 


#iflef EnExFlag 
printf ("Exitl creat dap db list"); 
#endif 


return; 


j 
done flag = FALSE; 
first db = TRUE; 
while ( done flag != TRUE ) 


/* the schema nodes are allocated and filled here “/ 
new db ptr = rd ent dbid node( dap fid, &done flag); 
if ( done flag != TRUE ) 


if ( first db == TRUE ) 


/* special case of accessing the first entity relationship */ 
dbs dap head ptr.dn dap — new db ptr; 
db ptr — new db ptr; 
first db — TRUE; 
j 


else 


db ptr->edn next db = new db ptr; 
db ptr = new db ptr; 
} 


first nonnode = TRUE; 
ed count = db ptr->edn num nonent; 
while ( ed count !— 0) 


/* the nonentity nodes are allocated and filled here */ 
new non ent ptr — rd ent non node(dap fid); 


if ( first nonnode == TRUE ) 


/* special case for first nonentity */ 
db ptr->edn nonentity = new_non ent ptr; 
non ent ptr = new non ent ptr; 
first nonnode = FALSE; 
j 
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else 
non ent ptr->enn_next_node = new_non ent ptr; 
non ent ptr = new_non ent ptr; 


first enum — TRUE; 
enum count — non ent ptr->enn num values; 
while ( enum count !— 0) 


/* the actual value nodes are allocated and filled here */ 
new entval ptr — rd ent value(dap fid, 

non ent ptr->enn total length); 
if ( first enum == TRUE ) 


/* special case of first actual value */ 
non ent ptr->enn value = new entval ptr; 
entval ptr — new entval ptr; 


first enum — FALSE; 


else 
entval ptr->ev next value — new entval ptr; 
entval ptr = new entval ptr; 


--enum count; 
} /* end value loop */ 


--ed_count; 
} /* end base type nonentity loop */ 


first node = TRUE; 

readstr(dap fid,temp str); 

db ptr->edn num ent — str to num(temp str); 
ent count = db ptr->edn num ent; 

while ( ent count !— 0) 


/* the entity nodes are allocated and filled in here */ 
new ent node ptr — rd ent node(dap fid); 
if (first node == TRUE ) 
{ 
/* special case of first entity node */ 
db ptr->edn entity = new_ent_node_ptr; 
ent node ptr — new ent node ptr; 


first node — FALSE; 


else 


{ 


ent_ node ptr->en_next ent = new_ent_node ptr; 
ent node ptr — new ent node ptr; 


ent count--; 


} 


first gen sub = TRUE; 
readstr(dap fid,temp str); 
db ptr->edn_ num gen — str to num(temp str); 
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gen sub count = db ptr->edn num gen; 
while ( gen sub count != 0) 


/* the gen subtype nodes are allocated and filled here */ 
new gen ptr — rd gen sub node(dap fid); 
if ( first gen sub == TRUE ) 

{ 


/* special case of first generalization node */ 
db ptr->edn_subptr = new gen ptr; 

gen ptr = new gen ptr, 

first gen sub = FALSE; 


else 
{ 
gen ptr->gsn next genptr = new gen ptr; 
gen ptr = new gen ptr; 


gen sub count--; 


} 


/* Process the overlap nodes */ 


gen ptr — db ptr -» edn subptr; 
while (gen ptr != NULL) 
{ /* begin while gen ptr «» NULL “/ 
first super = TRUE; 
readstr(dap fid,temp str); 
gen ptr-^gsn num ent — str to num(temp str); 
super count — gen ptr->gsn num ent; 
while ( super count != 0 ) 


/* the subtypes with one or more entity SUCH Dee a 

/* nodes are allocated and filled here 

new overlapent ptr = rd overlap ent node(dap fid, 
db_ptr->edn_entity); 

if ( first super == TRUE ) 


/* the special case of the first overlap ent node */ 
gen ptr->gsn entptr = new overlapent ptr; 
overlapent ptr — new overlapent ptr; 


first super = FALSE; 


else 
overlapent ptr->oen next name = new overlapent ptr; 
overlapent ptr = new overlapent ptr; 


--Super count; 
} /* end super type node */ 


first sub_super = TRUE; 

readstr(dap fid,temp str); 

gen ptr->gsn num sub = str to num(temp str); 
sub super count — gen ptr->gsn num sub; 

while ( sub super count !— 0) 
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/* the subtype supertypes are allocated here */ 

new overlapsub ptr — rd overlap sub node(dap fid, 
db ptr->edn subptr); 

if (first sub super == TRUE ) 


/* special case of first overlapsub node */ 
gen ptr->gsn subptr — new overlapsub ptr; 
overlapsub ptr — new overlapsub ptr; 

first sub super — FALSE; 


else 
overlapsub ptr->osn next name — new overlapsub ptr; 
overlapsub ptr — new overlapsub ptr; 


--sub super count; 
) /* end overlapsub loop */ 


gen ptr = gen pir -> gsn next genpir; 


/* Process the sub non nodes */ 


readstr(dap fid,temp str); 

db ptr->edn num nonsub — str to numltemp str); 
first non sub = TRUE; 

non sub count — db ptr->edn num nonsub; 

while ( non sub count !< 0) 


/* the nonentity subtype nodes are allocated and filled */ 
new subnon ptr — rd sub non node(dap fid); 


if ( first non sub == TRUE ) 


/* special case of first nonentity subtype node */ 
db ptr->edn nonsubptr = new_subnon ptr; 
subnon ptr = new_subnon ptr; 


first non sub = FALSE; 


else 
subnon ptr->snn next node — new subnon ptr; 
subnon ptr — new subnon ptr; 


j 
first value — TRUE; 
num val — subnon ptr-»snn num values; 
while ( num val !— 0) 


/* the value nodes are allocated and filled here */ 
new entval ptr — rd ent value(dap fid, 
subnon ptr-»snn total length); 


if ( first value == TRUE ) 
/* special case of first actual value */ 


subnon ptr->snn value = new entval ptr; 
entval ptr — new entval ptr; 
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first value = FALSE; 


else 
entval ptr->ev next value = new entval ptr; 
entval ptr = new entval ptr; 


--num val; 
) /* end actual value loop */ 


--non sub count; 
) /* end subtype nonentity loop */ 


/* Process the derived nodes */ 


readstr(dap fid,temp str); 

db ptr->edn num der — str to numltemp str); 
first non der = TRUE; 

non der count = db ptr->edn num der; 

while ( non der count != 0 ) 


/* the nonentity derived types are allocated and filled here */ 
new dernon ptr = rd der non node(dap fid); 


if ( first non der == TRUE ) 


/* special case of first derived type nonentity node */ 
db ptr->edn nonderptr = new dernon ptr; 
dernon ptr = new dernon ptr; 


first non der = FALSE; 


else 
dernon ptr->dnn next node = new dernon ptr; 
dernon ptr — new dernon ptr; 


j 
first value — TRUE; 


num val — dernon ptr-»dnn num values; 
while ( num val !— 0) 


/* the value nodes are allocated and filled here */ 
new entval ptr — rd ent value(dap fid, 

dernon ptr->dnn total length); 
if ( first value == TRUE) 


/* special case of first actual value */ 
dernon ptr->dnn value = new entval ptr; 
entval ptr = new entval ptr; 

first value = FALSE; 


else 


{ 


entval ptr->ev_next_value = new _entval ptr; 
entval ptr = new entval ptr; 


} 
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--num val; 
} /* end actual value loop */ 


--non_der count; 
} /* end derived type non entity loop */ 


/* NOW PROCESS THE FUNCTION NODES */ 
/* First, for entity nodes */ 


ent node ptr = db ptr->edn entity; 
while ( ent node ptr != NULL ) 


first func = TRUE; 
funct count — ent node ptr->en num funct; 
while ( funct count !— 0) 


/* function type nodes are allocated and filled here */ 
new func ptr = rd function node(dap fid,db ptr); 
if ( first func == TRUE ) 


/* the special case of first function node */ 
ent node ptr->en ftnptr = new func ptr; 
func ptr = new func ptr; 

first func = FALSE; 


else 


{ 
func_ptr->fn_next_fntptr = new func ptr; 
func ptr = new func ptr; 

} 

--funct count; 
} /* end function loop */ 
ent_node ptr = ent_node_ptr->en_next_ent; 
} /* end while loop for ent function nodes */ 


/* Now Process the gen sub node function nodes */ 


gen ptr = db ptr->edn_subptr; 
while ( gen ptr != NULL ) 
{ 


first func = TRUE; 
funct count — gen ptr->gsn num funct; 
while ( funct count !— 0) 


/* the function type nodes are allocated and filled here */ 
new func ptr — rd function node(dap fid,db ptr); 
if ( first func == TRUE ) 


/* the special case of the first function node */ 
gen ptr-»gsn ftnptr — new func ptr; 

func ptr — new func ptr; 

first func — FALSE; 


else 


{ 
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func_ptr->fn_next_fntptr = new _func_ptr; 
func ptr = new func ptr; 


funct_count--; 
} /* end function loop */ 
gen pir — gen ptr->gsn next genptr; 
} /* end while loop for gen sub function nodes */ 


) /* end if done flag != TRUE loop */ 


) /* end shema makelist loop */ 
#iflef EnExFlag 
printf ("Exit2 creat dap db list"); 
endet 
) /* End creat dap db list */ 


static struct ent dbid node “rd ent dbid node ( fid, flag ) 
FILE ` *fid; 
int *flag; 


{ 


struct ent dbid node *db ptr,  /* pointer to database node */ 
* ent, dbid node alloc( ); /* pointer to newly */ 
/* allocated database node */ 
char temp str [NUMDIGIT + 1]; /* temp string to hold file ID */ 


#iflef EnExFlag 
printf("Enter rd ent dbid node"); 
#endif 


/* this function allocates a new database node and returns a pointer */ 
* "+ * 
/* to it */ 


/* a new database node is established and ptrs are initialized */ 


db ptr = ent dbid_ node alloc{ ); 
db ptr->edn_ nonentity = NULL; 
db ptr->edn entity = NULL; 

db ptr->edn subptr = NULL; 

db ptr->edn next db = NULL; 
db ptr->edn nonsubptr — NULL; 
db ptr->edn nonderptr = NULL; 


readstr(fid,db ptr->edn name); 
if (db ptr->edn namejO| —— '$' ) 


/* when file becomes empty */ 
*flag — TRUE; 
free (db ptr); 
#iffef EnExFlag 
printf("Exit1 ent dbid node"); 
#endif 
return (NULL); 
} 


else 
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readstr(fid,temp str); 
db ptr->edn num nonent — str to num(temp str); 


#iflef EnExFlag 
printf("Exit2 rd_ ent dbid node"); 
# endif 
return(db ptr); 


} 
) /* end rd ent dbid node */ 


static struct ent non node "rd ent non node(fid) 


FILE *fid; 
{ 
struct ent non node *non_ent_ptr, /* pointer to base type */ 
/* nonentity node n 
*ent non node alloc(); /* pointer to newly allocated */ 
/* nonentity node 7 


char temp str NUMDIGIT + 1); /* temp string to read fields */ 


/* this function allocates a new base type nonentity node and */ 
/* returns a pointer to ıt = 


#iflef EnExFlag 
printf ("Enter rd ent non node"); 


#endif 
/* get new base type nonentity node and initialize pointers */ 


non ent ptr = ent non node alloc( ); 
non ent ptr->enn value = NULL; 
non ent ptr->enn next node — NULL, 


/* now the node is filled in by reading the file */ 


readstr(fid,non ent ptr->enn name); 
readstr(fid,temp str); 

non ent ptr-»enn type = temp str[O]; 

readstr(fid,temp str); 

non ent ptr-»enn total length = str to num(temp str); 
readstr(fid,temp str); 

non ent ptr->enn range = str to num(temp str); 
readstr(fid,temp str); 

non ent ptr-»enn constant — str to num(temp str); 
readstr(fid,temp str); 

non ent ptr->enn num values — str to num(temp str); 


#ifef EnExFlag 
printf("Exit rd ent non node"); 
#endif 
return(non ent ptr); 
) /* end rd ent non node */ 
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static struct ent value “rd ent value(fid, length) 
FILE *fid; 
int length; 


{ 


struct ent value *entval_ptr, /* pointer to def for value */ 
*ent value alloc( ); /* pointer fo newly allocated */ 
/* value node > 
char temp str[NUMDIGIT + 1]; /* temp string to read fields */ 
char “var str alloc(); 


/* this function allocates a new value node and returns a pointer */ 
"toU b 


#iflef EnExFlag 
printf("Enter rd ent value node"); 


#endif 
/* get the new value node and initialize ptrs */ 


entval ptr = ent value alloc( ); 
entval ptr->ev next value = NULL; 


/* now value node is filled in by reading the file */ 


entval ptr->ev value = var str alloc(length + 1); 
readstr(fid,entval_ptr->ev value); 


#iflef EnExFlag 
printf("Exit rd ent value node"); 


# endif 


return(entval ptr); 
) /* end rd ent value */ 


static struct ent node *rd ent node(fid) 
FILE *fid; 
{ 
struct ent node *ent node ptr, /* pointer to entity node */ 
*ent node alloc( ); /* pointer to newly allocated */ 
/* entity node =) 
char temp str/NUMDIGIT + 1]; 


/* this function allocates a new entity node and returns a pointer */ 
/* to it ER 
#iflef EnExFlag 
printf("Enter rd ent node"); 
#endif 


/* get new entity node and initialize values */ 
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ent node ptr — ent node alloc( J; 
ent node ptr->en ftnptr = NULL; 
ent node ptr->en next ent — NULL, 


/* now the entity node is filled in by reading the file */ 


readstr(fid,ent node ptr->en name); 
readstr(fid,temp str); 

ent node ptr->en num funct = str to num(temp str); 
readstr(fid,temp str); 

ent node ptr->en terminal — str to num(temp str); 


#ıfef EnExFlag 
printf("Exit rd ent node"); 


#endif 


return(ent node ptr); 
) /* end rd ent node */ 


static struct function node *rd function node(fid, db ptr) 
FILE *fid; 
struct ent dbid node *db ptr; 


{ 


struct function node *func ptr, /* pointer to function type node */ 


“function node alloc( ); /* pointer to newly allocated */ 
/* function type node “É 


char temp str[NUMDIGIT + 1); 
char name str|ENLength + 1]; 
int num val, 

first value; 


struct 


struct 
struct 
struct 
struct 
struct 
int 


ent value “entval ptr, 
*new entval ptr, 
*rd ent value(); 

ent node “ent pir; 

gen sub node *sub ptr; 

ent non node *enon ptr; 

sub non node *non ptr; 

der non node *der ptr; 


done flag; 


/* this function allocates a new function node and returns a pointer */ 


/* toit 


SR 


#iflef EnExF lag 


printf("Enter rd function node"); 


#endif 


/* get new function node and initialize values */ 


func ptr — function node alloc( ); 
func_ptr->fn value = NULL; 
func_ptr->fn_entptr = NULL; 
func ptr->fn_subptr = NULL; 
func ptr->fn_nonentptr = NULL; 
func_ptr->fn_nonsubptr = NULL; 
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func ptr->fn_nonderptr = NULL; 
func ptr->fn_next fntptr = NULL; 


/* now the function node is filled in by reading the file */ 


readstr(fid,func_ptr->fn_name); 

readstr(fid,temp str); 

func ptr-»fn type — temp str[0]; 
readstr(fid,temp str); 

func ptr-»fn range — str to num(temp str); 
readstr(fid,temp str); 

func ptr-—fn total length — str to num(temp str); 
readstr(fid,temp str); 

func_ptr->fn num value = str to num(temp str); 


first value — TRUE; 
num val — func ptr-»fn num value; 
while ( num val != 0) 


/* value nodes are allocated and filled here */ 
new entval ptr — rd ent value(fid, 

func ptr-»fn total length); 
if ( first value == TRUE ) 


/* special case of first value */ 
func ptr-»fn value = new _entval ptr; 
entval ptr = new entval ptr; 


first value = FALSE; 


else 


entval ptr->ev next value = new entval ptr; 
entval ptr = new entval ptr; 


} 


--num_val; 
} /* end value loop */ 


readstr(fid, name_str); 

if (name str[0] !2 ' ^") 
done flag = FALSE; 
ent ptr — db ptr->edn entity; 
while (done flag == FALSE) 


if (stremp(name str, ent ptr-^en name) == 0) 


done flag — TRUE; 
func ptr-»fn entptr — ent ptr; 


else 


ent ptr = ent ptr->en next ent; 
if (ent_ptr == NULL) done flag = TRUE; 


} 


readstr(fid, name str); 


78 


if (name_str{O] != °°’) 


done flag = FALSE; 
sub ptr = db ptr->edn_subptr; 
while (done flag == FALSE) 
if (stremp(name str, sub ptr->gsn name) —— 0) 


done flag — TRUE; 
func ptr->fn_subptr = sub ptr; 


else 


sub ptr = sub ptr->gsn next genptr; 
if (sub ptr == NULL) done flag = TRUE; 


} 


readstr(fid, name str); 
if (name str[0] !— ' ^") 


done flag — FALSE; 
enon ptr = db ptr->edn_nonentity; 
while (done flag == FALSE) 


if (strcmp(name str, enon ptr->enn_ name) == O) 


done flag = TRUE; 
func ptr->fn_nonentptr = enon _ ptr; 


else 


enon ptr = enon ptr->enn next node; 


if (enon ptr == NULL) done flag = TRUE; 


} 


readstr(fid, name str); 
if (name _str/O] != ’*’) 


done flag = FALSE; 
non ptr = db ptr->edn_nonsubptr; 
while (done flag == FALSE) 


if (stremp(name str, non ptr->snn_name) == O) 


done flag = TRUE; 
func ptr-»fn nonsubptr = non ptr; 


} 


else 


non ptr = non ptr-»snn next node; 
if (non ptr == NULL) done flag = TRUE; 
} 

} 


readstr(fid, name str); 
if (name str[0] != >^?) 


79 


done flag = FALSE; 
der ptr = db ptr->edn_nonderptr; 
while (done flag == FALSE) 
if (stremp(name str, der ptr-^dnn name) == O) 


done flag — TRUE; 
func ptr->fn_nonderptr = der _ ptr; 


else 


der ptr = der ptr->dnn_next_node; 
if (der ptr == NULL) done flag = TRUE; 


} 


readstr(fid,temp str); 
func ptr-»fn entnull — str to num(temp str); 
readstr(fid,temp str); 
func ptr->fn_ unique = str to num(temp str); 


#1Qef EnExFlag 
printf("Exit rd function node"); 
#endif 
return(func ptr); 
) /* end rd function node */ 


static struct gen sub node *rd gen sub node(fid) 
FILE *fid; 
struct gen sub node *gen ptr, 2s pointer to generalization node E 
*gen sub node alloc( ); /* pointer to newly allocated SI 
/* generalization node a 


char temp str NUMDIGIT + 11; 


/* this function allocates a new generalization node and returns a */ 
/* pointer to it RI 


#ıflef EnExFlag 
printf("Enter rd gen sub node"); 
#endif 


/* get new generalization node and initialize ptrs */ 


gen ptr = gen sub node alloc( }; 
gen ptr->gsn entptr = NULL; 

gen ptr->gsn ftnptr =.NULL; 

gen ptr->gsn subptr = NULI; 

gen ptr->gsn next genptr = NULL; 


/* now the generalization node is filled in by reading the file */ 
readstr(fid,gen ptr->gsn name); 
readstr(fid,temp str); 


gen ptr->gsn num funct —str to num(temp str); 
readstr(fid,temp str); 


80 


gen ptr->gsn terminal — str to num(temp str); 


#iflef EnExFlag 
printf(" Exit rd gen sub node"); 
#endif 


return(gen ptr); 
) /* end rd gen sub node */ 


static struct overlap ent node *rd overlap ent node(fid, ent ptr) 
FILE *fid; 
struct ent node "ent ptr; 
{ 
struct overlap ent node *overlap_ptr, /* pointer to node */ 
*overlap ent node alloc( ); /* pointer to newly */ 
/* allocated node */ 
char temp_str[NUMDIGIT + 1]; 
char name_str|ENLength + 1); 
int done flag; 


/* this function allocates a new subtype with one or more entity node */ 
/* and returns a pointer to it = 


#ıflef EnExFlag 
printf("Enter rd overlap ent node"); 


#endif 
/* get new node and initialize pointers * / 


overlap ptr — overlap ent node alloc( ); 
readstr(fid, name str); 


done flag = FALSE; 
while (done flag == FALSE) 


if (stremp(name str, ent _ptr->en_ name) == 0) 


overlap ptr->oen_name = ent ptr; 


done flag = TRUE; 


else 


{ 


ent ptr = ent ptr->en next ent; 
if (ent ptr == NULL) done flag = TRUE; 
overlap ptr->oen next name = NULL; 
#iflef EnExFlag 


printf("Exit rd overlap ent node"); 


#endif 


return(overlap ptr); 
} /* end overlap ent node */ 
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static struct overlap sub node *rd overlap sub node(fid,gen ptr) 
FILE *fid; 
struct gen sub node *gen ptr; 
{ 

struct overlap sub node *overlapsub_ptr, /* pointer to termimal */ 

/* subtype nodes s | 
*overlap sub node alloc(); /* pointer to newly */ 

/* allocated node */ 

char temp strfNUMDIGIT + 1]; 

char name str[ENLength + 1]; 

int done flag; 


/* this function allocates a new terminal subtype node and returns a */ 
/* pointer to it x 


#iQef EnExFlag 
printf("Enter rd overlapsub node"); 
#endif 


/* get new terminal subtype node and initialize pointers */ 


overlapsub ptr = overlap sub node alloc(); 
readstr(fid, name str); 


done flag = FALSE; 
while (done flag == FALSE) 


if (stremp(name str, gen ptr->gsn name) == 0) 


overlapsub ptr->osn name — gen pir; 


done flag = TRUE; 


else 


{ 


gen ptr — gen ptr->gsn next genptr; 
if (gen ptr == NULL) done flag = TRUE; 


overlapsub ptr->osn next name = NULL; 


#iflef EnExFlag 
printf("Exit rd_overlapsub_ node"); 
# endif 


return(overlapsub ptr); 
) /* end rd overlapsub node */ 


static struct sub non node “rd sub non node(fid) 


FILE *fid; 
{ 


struct sub non node *subnon ptr, /* pointer to subtype nonentity */ 
* 


/* node 
“sub non node alloc( ); /* pointer to newly allocated */ 
/* nonentity node Zen 


char temp_str[NUMDIGIT + 1]; 
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/* this function allocates a new subtype nonentity node and returns a */ 
/* pointer to it i 


#iflef EnExFlag 
printf("Enter rd sub non node"); 


#endif 
/* get new subtype nonentity node and initialize pointers */ 


subnon ptr — sub non node alloc( ); 
subnon ptr->snn value = NULL; 
subnon ptr->snn next node — NULL; 


/* now the subtype nonentity node is filled in by reading the file */ 


readstr(fid,subnon ptr-»snn name); 

readstr(fid,temp str); 

subnon ptr-»snn type = temp str[O]; 

readstr(fid,temp str); 

subnon ptr->snn total length = str to num(temp str); 
readstr(fid,temp str); 

subnon ptr->snn range = str to num(temp str); 
readstr(fid,temp str); 

subnon ptr->snn_ num values = str to num(temp str); 


#iflef EnExFlag 
printf("Exit rd sub non node"); 


#endif 


return(subnon ptr); 
} /* end rd sub non node */ 


static struct der non node “rd der non node(fid) 


FILE *fid; 
( 


struct der non node *dernon ptr, /* pointer to derived type */ 


/* nonentity node yi 
*der non node alloc( ); /* pointer to newly allocated */ 
/* derived type a 


char temp str[NUMDIGIT + 1]; 


/* this function allocates a new derived type nonentity node and returns */ 
/* a pointer to it m 


#iflef EnExFlag 
printf("Enter rd der non node"); 
#endif 
/* get new derived type nonentity node and initialize pointers */ 
dernon ptr — der non node alloc( ); 
dernon_ptr->dnn value = NULL; 
dernon ptr->dnn next node — NULL; 


/* now the derived type nonentity node is filled */ 
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readstr(fid,dernon ptr->dnn name); 

readstr(fid,temp str); 

dernon ptr->dnn type — temp str!0]; 

readstr(fid,temp str); 

dernon ptr->dnn total length — str to numftemp str); 
readstr(fid,temp str); 

dernon_ptr->dnn_range = str_to num(temp str); 
readstr(fid,temp str); 

dernon_ptr->dnn num values = str to num(temp str); 


#iflef EnExFlag 


printf("Exit rd der non node"); 
#endif 


return(dernon ptr); 


) /* end rd dernon node */ 
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APPENDIX C 


THE LIL MODULE 


#include <stdio.h> 
#include "licommdata.def" 
#include "struct.def" 
#include "flags.def" 
#include "dap.ext" 
#include "lil.dcl" 


language interface layer() 
/* This proc allows the user to interface with the system. */ 


/* Input and output: user DAPLEX requests a 


int num; 


int stop: /* boolean flag */ 


#idef EnExFlag 
printf ("Enter language interface layer0); #endif 


dap_init(); 


/* initialize several ptrs to different parts of the user structure */ 
/* for ease of access P 
dap info ptr = &(cuser dap ptr->ui li type.li dap); 
tran info ptr = &(dap info ptr->dpi dml tran); 
first req ptr = &(tran info ptr->ti first req); 
curr req ptr = &(tran info ptr->ti_curr_req); 
stop = FALSE; 
while (stop == FALSE) 
{ 

/* allow user choice of several processing operations */ 

printf ("Onter type of operation desiredO); 

printf ("(1) - load new database0); 

printf ("(p) - process existing database0); 

printf ("(x) - return to the operating system0); 


dap info ptr->dap answer = get ans(&num); 


switch (dap info ptr->dap answer) 
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he 


{ 


case ’]’: /* user desires to load a new database */ 
load new(); 
break; 

case "p^: /* user desires to process an existing database */ 
process old(); 
break; 

case °x’: /* user desires to exit to the operating system */ 
/* database list must be saved back to a file */ 
stop = TRUE; 
break; 

default: /* user did not select a valid choice from the menu */ 
printf ("Orror - invalid operation selectedO); 
printf ("Please pick againO); 
break; 

} /* end switch */ 


return to main menu */ 


} /* end while */ 


#idef EnExFlag 


printf ("Exit language interface layer0); #endif 


} /* end language interface layer */ 


dap init() ( 


#idef EnExFlag 
printf ("Enter dap_initO); #endif 


#fdef EnExFlag 
printf ("Exit dap initO); #endif 


) /* end dap init */ 


load new() 


1 
Jen 
he 


/* This proc accomplishes the following: W; 
(1) determines if the new database name already exists, mur 
(2) adds a new header node to the list of schemas, E 
(3) determines the user input mode (file/terminal), = 
(4) reads the user input and forwards it tothe parser, and */ 


ye 
7 


(5) calls the routine that builds the template/descriptor files */ 
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int num; 

int stop; /* boolean flag */ 

int more input; /* boolean flag */ 

int proceed; /* boolean flag */ 

struct ent dbid node *db list ptr, /* ptr to the current db */ 
*new ptr, /* ptr to a new db structure */ 


*ent dbid node alloc(); /* ptr to allocated db */ 


#Tdef EnExFlag 
printf ("Enter load_newO); #endif 


/* prompt user for name of new database */ 
printf ("|7;7mOnter name of database ---->[{0;0m "); 
readstr (stdin, dap info ptr->dpi_curr_db.cdi dbname); 
to caps (dap info ptr->dpi curr _db.cdi_ dbname); 
db list ptr = dbs dap head ptr.dn dap; 
stop = FALSE; 
while (stop == FALSE) 
{ 
/* determine if new database name already exists */ 
/* by traversing list of entity-relation db schemas */ 
if ((stremp(db list ptr->edn name, 
dap info ptr->dpi curr db.cdi dbname))—— O) 
{ 
printf ("Orror - db name already exists0); 
printf ("|7;7mPlease reenter db name ---->(0;0m "); 
readstr (stdin, dap info ptr->dpi curr _db.cdi_ dbname); to caps (dap info ptr- 
>dpi curr db.cdi dbname); 


db list ptr — dbs dap head ptr.dn dap; 


) /* end if */ 
else /* check for last database of the list */ if (db list ptr->edn next db == 
NULL) stop = TRUE; else 


/* increment to next database */ 
db list ptr — db list ptr->edn next db; 
} /* end while */ 


/* continue - user input a valid ’new’ database name */ 
/* add new header node to the list of schemas and fill-in db name */ 


/* append new header node to db list & init relevent user stucture ptrs */ 
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new ptr = ent dbid node alloc(); 

strcpy (new ptr->edn name, dap info ptr->dpi curr db.cdi dbname); 
/* new ptr-»dpidn num set = 0; */ 

7 Den or = 0; */ 

/* new ptr->dpidn first set = NULL; */ 

/* new_ptr->dpidn first rec = NULL; */ 

/* new_ptr->dpidn next db = NULL; */ 

db list ptr->edn next db = new ptr; 

dap info ptr->dpi curr db.cdi db.dn dap = new ptr; 

dap info ptr->dpi_ curr db.cdi attr.an dattr_ ptr = NULL; 


/* check for user’s mode of input */ 
more input = TRUE; 
while (more input == TRUE) 
{ 
/* determine user's mode of input */ 
printf ("Onter mode of input desired0); 
printf ("(f) - read in database description from a file0); 
printf ("(x) - return to the to main menu0); 


dap info ptr->dap answer = get ans(&num); 


switch (dap info ptr->dap answer) 


{ 


case ’f’: /* user input is from a file */ 


read transaction file(); if (dap info ptr->dap error != ErrReadFile) 
{ /* file contains transactions */ /* dbd stands for 

database description */ dbd to KMS(); free requests(); 
if (dap info ptr->dap error != ErrCreateDB) { 


/* no syntax errors in creates */ 
build ddl files(); 
Kernel Controller(); 1 endi / } /* end if */ 

break; 

case ’x’: /* exit back to LIL */ 
more input = FALSE; 
break; 

default: /* user did not select a valid choice from the menu */ 
printf (“Orror - invalid input mode selected0); 
printf ("Please pick again0); 
break; 
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) /* end switch */ 


if (dap info ptr->dap error == ErrCreateDB) /* errors in creates so exit this loop */ 
more input = FALSE; 

dap info ptr->dap error = NOErr; 

) /* end while */ 


#fdef EnExFlag 
printf ("Exit load new0O); #endif 


} /* end load new */ 


process old() 
/* This proc accomplishes the following: i 
/* (1) determines if the database name already exists, */ 
/* (2) determines the user input mode (file/terminal), */ 


/* (3) reads the user input and forwards it to the parser */ 


int found, more input; /* boolean flags */ 
int num; 


struct ent dbid node *db list ptr; /* ptr to the current database */ 


#Tdef EnExFlag 
printf ("Enter process old0); #endif 


/* prompt user for name of existing database */ 

printf ("[7;7mOnter name of database ---->[0;0m "); 
readstr (stdin, dap info ptr->dpi curr_db.cdi dbname); 
to caps (dap info ptr->dpi curr db.cdi dbname); 

db list ptr — dbs dap head ptr.dn dap; 


found — FALSE; 
while (found —— FALSE) 
{ 
/* determine if database name does exist D 
/* by traversing list of entity-relation schemas */ 
if (stremp(dap info ptr-» dpi curr db.cdi dbname,db list ptr-“edn name)== O) 
found = TRUE; 


else 


{ 
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db list ptr = db list ptr->edn next db; 
/* error condition causes end of list(' NULL”) to be reached */ 
if (db list ptr == NULL) 
{ 
printf ("Orror - db name does not exist0); 
printf ("|7;7mPlease reenter valid db name ---->(0;0m "); 
readstr (stdin, dap info ptr->dpi curr db.cdi dbname); to caps 
(dap info ptr-»dpi curr db.cdi dbname); 
db list ptr = dbs dap head ptr.dn dap; 
) /* end if */ 


) /* end else */ 
) /* end while */ 


/* continue - user input a valid existing database name */ 
/* determine user's mode of input */ 
more input — TRUE; 
while (more input == TRUE) 
{ 
printf ("Onter mode of input desiredO); 
printf ("(f) - read in a group of DAPLEX requests from a file0); 
printf ('(t) - read in DAPLEX requests from the terminal0); 
printf ("(x) - return to the previous menu); 


dap info ptr->dap answer — get ans(&num); 


switch (dap info ptr->dap answer) 
{ 
case 'P: /* user input is from a file */ 
read transaction file(); dapreqs to KMS(); 
free requests(); break; 
case 't': /* user input is from the terminal */ 
read terminal(); 
dapreqs to KMS(); free requests(); break; 
case ’x’: /* user wishes to return to LIL menu “/ 
more input = FALSE; 
break; 
default: /* user did not select a valid choice from the menu */ 
printf ('"Orror - invalid input mode selected0); 


printf ("Please pick again0); break; 
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} /* end switch */ 
) /* end while */ 


#Tdef EnExFlag 
printf ("Exit process old0); #endif 


} /* end process old */ 
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APPENDIX D 


THE KMS MODULE 


/* Last Date Modified: 12 Nov 85 / ja / building db description ops */ 


#include <stdio.h> 

# include "licommdata.def™ 
#include "struct.def" 
#1include "dap.ext" 
#include "flags.def" 


int creating = FALSE; int serror; int in; int inl; int in2; int inĝ; int ind; int 1n5; int add; 
int present; int there; int 1, J; int move, nmove; int b; int nsub,esub; int curr op; int 


check ids; int dummy, dummy2; int ada expression; 


char temp strfNUMDIGIT + 1]; char db[DBNlength + 1]; char temp value[ENlength + 1]; char 
temp|ENlength + 1]; char type name id[ENlength + 1); 


struct ent dbid node *db ptr; struct ent non node “non ent ptrl, 
“non ent ptr2; struct ent value *entval ptrl, 
*entval ptr2; struct sub non node *subnon ptrl, 
*subnon ptr2; struct der non node “dernon ptri, 
*dernon ptr2; struct ent node *ent ptrl, 
*ent ptr2; 
*new ent ptr; struct gen sub node “gen ptrl, 
*gen ptr2; 
“new gen ptr; struct overlap ent node *overlapent ptrl, 
*overlapent ptr2; struct overlap sub node "overlapsub ptrl, 


*overlapsub ptr2; struct function node X *func ptrl, 


*func ptr2; struct dap kms info ‘kms ptr; struct dap kms info 
“dap kms info alloc(); struct ident list *id ptr, 

*temp ptr, 

*new temp ptr, 

*new id ptr; struct ent non node *dap ent non node alloc(); struct 
ent node *dap ent node alloc(); struct function node *dap func node alloc(); struct 
sub non node *dap sub non node alloc(); struct der non node 
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*dap der non node alloc(); struct ent value *dap ent value alloc(); struct dap create list 
“create list, 
*create list2, 


*dap create list alloc(); 


A) 

union 
{ 
char str[20]; 
} 


“token DATABASE %token ENTITY %token OVERLAP token TEMPORARY “token 
TRUE %token FALSE %token END %token IS %token WITH %token WITHIN %token 
UNIQUE “token TYPE %token SUBTYPE %token NEW “token EMPTY %token 
CREATE %token CONSTANT %token AND %token OR %token XOR %token THEN 
token ELSE %token FOR token EACH token DELTA %token NULL %token WITH- 
NULL %token WITHOUTNULL %token SET %token IMAGE %token POS %token VALUE 
%token VAL 


%token <str> IDENTIFIER %token <str> NUMERIC LITERAL %token <str> STRING 
%token <str> CHARACTER STRING %token <str> LITERAL STRING %token «str» 
FLOAT %token «str» INTEGER %token «str» BOOLEAN %token «str» RANGE 
“token «str» DIGITS %token <str> ELIPSES %token <str> COLON %token <str> 
SEMICOLON %token <str> DOT %token <str> COMMA %token <str> ASSIGN %token 
<str> LP %token <str> RP %token <str> HYPHEN %token <str> IMPLY 


%token <str> subtype indicator %token <str> subtype indication 


“start statement 
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statement: ddl statement 


{ 
YYACCEPT; 


j 


, 
ddl statement: database specification 
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d 
proc free id list(); 


} 


3 


database specification: TEMPORARY database definition 
| database definition 
database definition: DATABASE 
{ #iflef HYacFlag 
printf("Database in database definition recognized0); #endif 
check ids = TRUE; 
creating = TRUE; 
} 


visible part end database 
end database: end module 
end module: END 
| END 
{ 
check ids = FALSE; 
} 


name id 

{ 

db ptr = cuser dap ptr->ui_h type. dap.dpi curr db.cdi db.dn dap; 
strcpy(db,db ptr-2edn name); 


if(stremp(temp value, db ptr->edn_ name) != FALSE) 


{ 


serror = 0; 


proc eval error(serror); 
YYACCEPT; 
j 

j 


3 


visible part: name id 


/* =s [A-Z]|A-Z] in LEX */ 
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/* the ent dbid node is located and compared for correctness */ 


{ 
db ptr = cuser dap ptr->ui lh type.li dap.dpi curr db.cdi db.dn_ dap; 
strepy(db,db ptr->edn name); 
if (stremp(db ptr->edn name, temp value) != FALSE) 
{ 
serror = D. 
proc eval error(serror); 


YYACCEPT; 


j 
} 


IS declarative item list 


) 


declarative item list: declarative item 


| declarative item list declarative item 


declarative item: declaration 


| consistency rule 


. 
) 


consistency rule: overlap rule 


| uniqueness rule 


3 


overlap rule: OVERLAP 


/* the types are checked to insure that they are terminal subtypes */ 


{ 


serror = 14; 
check ids = FALSE; 
curr op = Overlap; 


j 


namel list 


( 


kms ptr-»dki overfirst ptr = kms ptr-»dki temp ptr; 
kms ptr->dki temp ptr = NULL; 
ov ptr = kms ptr-»dki overfirst ptr; 
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ın = FALSE; 

new gen ptr = db _ptr->edn subptr; 
gen ptr — new gen ptr; 

while (ov ptr != NULL) 


{ 
while ((gen_ptr != NULL) && (in != TRUE)) 
| 
if (stremp(ov_ptr->il_ name, gen ptr->gsn name) == FALSE) 
{ 
In = TRUE; 
} 
else 
{ 
hew gen ptr = gen ptr->gsn next genptr; 
gen ptr — new gen ptr; 
} 
} 
if (in == TRUE) 
{ 


new ov ptr = ov ptr->il next; 
ov_ptr = new ov ptr; 

new gen ptr — db ptr->edn subptr; 
gen ptr — new gen pir; 

in = FALSE; 

} 


else 


{ 

proc eval error(serror); 

} 

} 

} 
WITH namel list SEMICOLON 
{ 
in = FALSE; 
new temp ptr — kms ptr->dki temp ptr; 
temp ptr — new temp ptr; 
new gen ptr = db ptr->edn subptr; 
gen ptr — new gen ptr; 
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new overlapsub ptr = gen ptr->gsn_ subptr; 
overlapsub ptr = new _overlapsub ptr; 
while (temp_ptr != NULL) 
{ 
while ((gen_ptr != NULL) && (in == FALSE)) 
{ 
if (stremp(gen_ptr->gsn_name, temp ptr->il name) == FALSE) 
{ 
in = TRUE; 
new ov ptr = kms_ptr->dki_overfirst_ptr; 
ov ptr — new ov ptr; 
while (ov_ptr != NULL) 
d 
if (overlapsub ptr == NULL) 
{ 
gen ptr->gsn subptr = dap overlap sub node alloc(); 
new overlapsub ptr = gen ptr->gsn_subptr; 
overlapsub ptr = new_overlapsub ptr; 
ov ptr->il name = overlapsub ptr; 
overlapsub ptr->osn name — ov ptr->il name; 
overlapsub ptr->oen next name — NULL; 


} 


else 

d 

while (overlapsub ptr->oen name != NULL) 

overlapsub ptr — overlapsub ptr->oen next name; 

overlapsub ptr->oen next name — dap overlap sub node alloc(); 
new overlapsub ptr — overlapsub ptr-»oen next name; 
overlapsub ptr — new overlapsub ptr; 

ov ptr-»il name — overlapsub ptr; 

overlapsub ptr->osn name — ov ptr->il name; 
overlapsub ptr->oen next name — NULL; 

} 

new ov ptr—ov ptr->il next; 

ov pir — new ov pir, 


} 


else 
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{ 
new gen ptr = gen ptr->gsn next ptr; 
gen ptr — new gen ptr; 
} 
} 
if ((gen_ptr == NULL) && (in == FALSE)) 
{ 


proc eval error(serror); 


} 


else 
{ 
new temp ptr = temp ptr->il_ next; 
temp ptr = new temp ptr; 
new gen ptr = db ptr->edn_subptr; 
gen ptr = new gen pir; 
n == FALSE; 
} 
} 
check ids = TRUE; 
} 


uniqueness rule: UNIQUE identifier hist WITHIN namel SEMICOLON 
{ 


curr op = Unique; 
check ids = FALSE; 


serror = 13; 
/* to create temp list must be entity type or subtype */ 


in = FALSE; 
new ent node ptr = db ptr->edn entity; 
ent node ptr = new ent node ptr; 
new gen ptr = db ptr->edn_subptr; 
gen ptr = new gen ptr; 
while (ent node ptr != NULL) 
{ 


if (stremp(ent node ptr->en name, temp value) == FALSE) 


{ 
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/* if the temp value is found in the function */ 
/* node the unique field in the function node */ 


/* is initialized to true, else an error mess- */ 


/* is initiated e 


in = TRUE; 
there = FALSE; 
new func ptr = ent node ptr->en ftnptr; 
func ptr = new func ptr; 
new temp ptr = kms ptr->dki temp ptr; 
temp ptr = new temp ptr; 
while (temp ptr != NULL) 
{ 
while (func ptr != NULL) 
{ 
if(stremp(temp ptr->il name, func ptr->fn_ name) == FALSE) 
{ 
there = TRUE; 
func ptr->fn_unique = TRUE; 
} 
else 
{ 
new func ptr = func ptr-»fn next fntptr; 
func ptr — new func ptr; 
} 
} 
if (there == TRUE) 
{ 
new temp ptr — temp ptr->il next; 
temp ptr — new temp pir; 
new func ptr — ent node ptr->en_ftnptr; 
func ptr — new func ptr; 
there — FALSE; 
j 


else 


{ 


proc _ eval error(serror); 


} 
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} 


else 
new ent node ptr = ent node ptr->en next ent; 
ent node ptr — new ent node ptr; 


) 
if (in == FALSE) 
{ 


/* The temp_value is compared to each value in the */ 
/* gen sub node. If the value is not there, an error */ 


/* message is initiated. en 


while (gen ptr != NULL) 
{ 


if (stremp(gen_ ptr->gsn name, temp value) == FALSE) 
{ 
in = TRUE; 
there = FALSE; 
new func ptr = gen ptr-»gsn ftnptr; 
func ptr = new func ptr; 
new temp ptr — kms ptr->dki temp ptr; 
temp ptr = new temp ptr; 
while (temp ptr != NULL) 
{ 
while (func ptr != NULL) 
{ 
if(stremp(temp ptr->il name, func ptr->fn name) —— FALSE) 
{ 
there = TRUE; 
func ptr->fn unique = TRUE; 
} 
else 
d 
new func_ptr = func_ptr->fn_next_fntptr; 
func_ptr = new func ptr; 
} 
} 
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if (there == TRUE) 
{ 
new_temp ptr = temp ptr->il next; 
temp ptr = new temp ptr; 
new func ptr — gen node ptr->gsn ftnptr; 
func ptr — new func ptr; 
there — FALSE; 
j 


else 


{ 


proc eval error(serror); 


j 


else 
{ 
new gen ptr = gen ptr->gsn next genptr; 
gen ptr = new gen ptr; 
} 
} 
} 
if (in == FALSE) 
proc eval error(serror); 
check ids = TRUE; 
} 


declaration: number declaration 
| type declaration 
| subtype declaration 
; 


number declaration: 


{ 


serror = 1; 


check ids = TRUE; 


} 
identifier list COLON CONSTANT ASSIGN simple const SEMICOLON 


{ 
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temp ptr = kms ptr->dki temp ptr; 
while (temp ptr != NULL) 
{ 
/* At this point ent non node's are filled with the */ 
/* information previously allocated in the kms info */ 
/* structure. The amount of nodes is dependent on */ 


/* the amount of names in the temp structure. a 


ent non ptrl — dap ent non node alloc(); 
strcpy(ent non ptrl-»enn name, temp ptr->il name); 
ent non ptrl->enn type = kms ptr-»dki ent non.enn type ; 
ent non ptrl->enn total length = 

kms ptr->dki ent non.enn total length ; 
ent non ptri->enn range — kms ptr->dki ent non.enn range ; 
ent non ptri->enn num. values — 

kms ptr->dki ent non.enn num values ; 
ent non ptrl->enn value = kms ptr->dki ent non.enn value ; 
kms ptr->dki ent non.enn value = NULL; 
ent non ptri->enn constant — 

kms ptr->dki ent non.enn constant ; 


ent non ptri->enn next node = NULL; 
ent non ptr2 = db ptr->edn nonentity; 


if (ent_non_ptr2 == NULL) 
db ptr->edn nonentity = ent non ptri; 


else 


{ 


while (ent non ptr2->enn next node != NULL) 
ent non ptr2 = ent non ptr2->enn next node; 


ent non ptr2-»enn next node — ent non ptrl; 


j 
ent non ptrl = NULL; 


temp ptr = temp ptr->ıl next; 


} 
check ids = FALSE; 


} 


simple const: INTEGER /* dap kms info structures are built for subsequent */ 
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/* nonentity node insertion into the schema > 


kms ptr->dki ent non.enn type = ’1’; 
kms ptr->dki ent non.enn total length — INTLength; 
kms ptr->dki ent non.enn range = FALSE; 
kms ptr->dkı ent non.enn num values = 1; 
kms ptr->dki ent non.enn constant = TRUE; 
kms ptr->dki ent non.enn value — dap ent value alloc(); 
kms ptr->dki ent non.enn value->ev value — 

var str alloc( strlen($1) + 1 ); 
strepy(kms_ptr->dki_ent_non.enn_value->ev_ value, $1); 
kms ptr-»dki ent non.enn value->ev_next value = NULL; 


} 
| FLOAT 


{ 
kms _ ptr->dki ent non.enn type = ’f’; 
kms ptr->dki ent non.enn total length — FLTLength; 
kms ptr->dki ent non.enn range = FALSE; 
kms ptr->dki ent non.enn num values — 1; 
kms ptr-»dki ent non.enn constant — TRUE; 
kms ptr->dki ent non.enn value — dap ent value alloc(); 
kms ptr->dki ent non.enn value->ev value — 
var str alloc( strlen($1) + 1 ); 
strcpy(kms ptr->dki ent non.enn value->ev_ value, $1); 


kms ptr->dki ent non.enn value->ev next value — NULL; 


type declaration: TYPE 


{ 
curr op = Typels; 
check ids = FALSE; 


serror = 2; 


} 


name id 


{ 


strcpy(temp name id, temp value); 


check ids = TRUE; 
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serror = 9; 


} 
IS type definition SEMICOLON 


/* the following switch statement allocates a nonentity */ 
/* derived, or entity node to the schema dependent upon */ 


/* the value of curr_op */ 


{ 


curr op = Checklds; 
switch(curr_op) 
{ 
case NonEnt: 
ent non ptri = dap ent non node alloc(); 
strcpy( ent non ptri->enn_ name, temp name id ); 
ent_non ptri->enn type = kms ptr->dki ent non.enn type ; 
ent_non ptri->enn total length = 
kms ptr->dkı ent non.enn total length ; 
ent non ptri->enn range — kms ptr->dki ent non.enn range ; 
ent non ptrl->enn num values = 
kms ptr->dkı ent non.enn num values ; 
ent non ptri->enn value — kms ptr->dki ent non.enn value; 
kms ptr->dki ent non.enn value — NULL; 
ent_non ptri->enn constant = 
kms ptr->dki ent_non.enn constant ; 


ent non ptri->enn next node = NULL; 
ent non ptr2 — db ptr->edn nonentity; 


if (ent non ptr2 —— NULL) 

db ptr-—edn nonentity — ent non ptrl; 

else 

{ 

while (ent_non_ptr2->enn_next_node != NULL) 

ent non ptr2 = ent non ptr2->enn next node; 

ent non ptr2-»enn next node — ent non ptri; 
j 

ent non ptri = NULL; 

break; 


case Derived: 


104 


dernon ptrl — dap der non node alloc(); 
strcpy( dernon ptri->dnn_ name, temp name id ); 
dernon_ptrl->dnn type = kms ptr->dki der non.dnn type ; 
dernon ptri->dnn total length = 
kms ptr->dki der non.dnn total length ; 
dernon ptrl->dnn range = kms ptr->dki der non.dnn range ; 
dernon ptri->dnn_num_values = 
kms ptr->dki der non.dnn num values ; 
dernon ptrl->dnn value = kms ptr->dki der non.dnn value ; 
kms_ptr->dki_der non.dnn value = NULL; 
dernon ptri->dnn next node = NULL; 
dernon ptr2 = db ptr->edn_nonderptr; 
if (dernon_ptr2 == NULL) 
db ptr-»edn nonderptr = dernon ptri; 
else 
{ 
while (dernon ptr2-»dnn next node != NULL) 
dernon ptr2 — dernon ptr2->dnn next node; 
dernon ptr2->dnn next node — dernon ptri; 
} 
dernon ptri = NULL; 
break; 


case Entity: 


/* check if name _ id is on the ent list of the schema */ 
} 
} 


| incomplete type declaration 
name id: IDENTIFIER 


/* this rule assigns IDENTIFIER to the variable temp value */ 
/* and inserts it into the id structure of dap kms info for */ 


/* subsequent comparisons of uniqueness SE 


{ 

strcpy(temp value,$1); 

id ptr — kms ptr-»dki id ptr; 
dE NULL 
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{ 
kms ptr->dki id ptr = dap ident list alloc(); 
id ptr = kms ptr-»dki id ptr; 
' 
else 
{ 
nmove = FALSE; 
new id ptr = id ptr; 
while(id ptr !'= NULL) 


{ 
if (stremp(id_ptr->il name, temp value) == FALSE) 
{ 
nmove = TRUE; 
} 
else 
{ 


new id ptr = id ptr; 
id ptr — id ptr-»il next; 
} 
} 
if((nmove == FALSE) && (curr_op == Checklds)) 
{ 
new id ptr->il next = dap ident list alloc(); 
new id ptr — new id ptr->il next; 
strcpy(new_id ptr->il name, temp value); 
new id ptr->il next — NULL; 
} 
else 
{ 
if((nmove == TRUE) && (curr_ op = Checklds)) 


proc eval error(serror); 


incomplete type declaration: TYPE 
/* entity */ 
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{ 
check ids = TRUE; 
serror = 3; 


} 
name_id SEMICOLON 


/* At this point a check is made to see if the */ 
/* IDENTIFIER is already in the ent_node. If it */ 
/* is, an error is produced. If it is not, it is */ 


/* added to the schema. E 


{ 
ın = FALSE; 
ent node ptri — db ptr->edn entity; 
ent node ptr2 = ent node ptrl; 
while (ent node ptr2 != NULL) 

{ 


if (stremp(ent node ptr2->en name, temp value) == FALSE) 


{ 


proc_eval_error(serror); 
in = TRUE; 
} 
else 
ent node ptrl = ent_node ptrl->en_next_ent; 
ent node ptr2 = ent node ptri; 
} 
if (in == FALSE) 
{ 
ent node ptr2 = dap ent node alloc(); 
strcpy(ent_ node ptr2->en_ name, temp value); 
ent node ptr2->en num funct — 0; 
ent node ptr2->en terminal — FALSE, 
ent node ptr2->en_ftnptr = NULL; 
ent node ptr2->en next ent = NULL; 


ent node ptrl = db ptr->edn entity; 
ent node ptr2 — ent node ptrl; 

if (ent node ptr2 —— NULL) 

{ 
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db ptr->edn entity = ent node ptr2; 
ent_node ptr2 = NULL; 
} 


else 
while (ent node ptr2->en next ent != NULL) 
ent node ptrl = ent node ptrl->en next ent; 
ent node ptr2 — ent node ptrl; 
ent node ptri->en next ent — ent node ptr2; 


ent node ptr2 — NULL; 


} 
} 
check ids = FALSE; 


} 


type definition: /* curr op variables are set for subsequent switch statement */ 


/* utilization a 


{ 


curr op = NonEnt; 


j 
enumeration type definition 
{ 

curr_op = NonEnt; 

} 
integer type definition 
{ 

curr op = NonEnt; 

} 

real type definition 

| 

{ 

curr op = Derived; 

} 


derived type definition 
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{ 


curr op = Entity; 


} 


entity type definition 


enumeration type definition: LP 


/* enumeration dap kms info structures for */ 


/* nonentity and function nodes are initialized */ 


{ 
check ids = FALSE; 


switch(curr op) 
{ 
case NonEnt: 
kms ptr->dki ent non.enn type — 'e”; 
kms ptr->dki ent non.enn range — FALSE; 
kms ptr->dkı ent non.enn num values — 0; 


kms ptr->dki ent non.enn constant — FALSE; 
break; 


case Function: 
kms ptr-»dki funct.fn type = ’e’; 
kms ptr-»dki funct.fn range = FALSE; 
kms ptr-»dki funct.fn num value = 0; 


break; 


} 
} 
enumeration literal list RP 
{ 

check ids = TRUE; 


} 


, 
enumeration literal list: enumeration literal 


/* the pointers are set for value nodes with */ 
/* concurrent incrementation of the number of */ 
/* value nodes present in the nonentity and */ 


/* function structures t 
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{ 


switch(curr op) 
{ 
case NonEnt: 
kms ptr->dki ent non.enn num values++; 
kms ptr->dki ent non.enn value = entval ptr; 
entval ptr = NULL; 
break; 


case Function: 
kms ptr->dki funct.fn num values++; 
kms ptr->dki funct.fn value = entval ptr; 
entval ptr = NULL; 
break; 


} 
} 


| enumeration literal list COMMA enumeration literal 


{ 


switch(curr op) 
{ 
case NonEnt: 
kms_ptr->dki ent non.enn num values++; 
entval ptr2 — kms ptr->dki ent non.enn value; 
while (entval ptr2->ev next value != NULL) 
entval ptr2 — entval ptr2->ev next value; 
entval ptr2 = entval ptr; 
entval ptr = NULL; 
break; 


case Function: 

kms ptr-»dki funct.fn num value++; 

entval ptr2 = kms ptr-»dki funct.fn value; 

while (entval ptr2->ev next value != NULL) 
entval ptr2 — entval ptr2->ev next value; 

entval ptr2 = entval ptr; 

entval ptr = NULL; 

break; 
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enumeration literal: name_id 


/* ent_value nodes are allocated and the ev value */ 


/* pointer is set the the appropriate IDENTIFIER */ 


{ 


switch(curr_op) 

{ 

case NonEnt: 
entval ptr = dap ent value alloc(); 
enum str = var str alloc(ENlength + 1); 
strcpy(enum str, temp value); 
entval ptr->ev value = enum str; 
entval ptr->ev_ next value = NULL; 
enum str = NULL; 
break; 


case Function: 
entval ptr — dap ent value alloc(); 
enum str — var str alloc(ENlength + 1); 
strcpy(enum str, temp value); 
entval ptr->ev_ value = enum str; 
entval ptr->ev next value = NULL; 
enum str = NULL; 
break; 


} 
} 
| LITERAL CHARACTER 


{ 


switch(curr_op) 
{ 
case NonEnt: 
entval ptr — dap ent value alloc(); 
enum str — var str alloc( strlen($1) + 1); 
strcpy (enum str, $1); 
entval ptr->ev value — enum str; 


entval ptr->ev next value = NULL; 


111 


enum str = NULL; 
break; 


case Function: 
entval ptr — dap ent value alloc(); 
enum str — var str alloc( strlen($1) + 1); 
strcpy(enum str, $1); 
entval ptr->ev value — enum str; 
entval ptr->ev next value — NULL; 
enum str — NULL; 
break; 


integer type definition: 


/* integer type dap kms info structures are set for */ 


je subsequent insertion into the schema = 


{ 

check ids = FALSE; 

switch (curr_op) 

{ 
case NonEnt: 

kms ptr->dki ent non.enn type — 'Y; 
kms ptr->dki ent non.enn range = TRUE; 
kms ptr->dki ent non.enn num values — 2; 
kms ptr->dki ent_non.enn constant = FALSE; 
break; 


case Derived: 
kms ptr->dki der non.dnn type = ’1’; 
kms ptr->dki der non.dnn range = TRUE; 
kms ptr->dki der non.dnn num values — 2; 


break; 


case SubNon: 
kms ptr->dki sub non.snn type = "i; 
kms ptr->dki sub _non.snn range = TRUE; 


kms ptr->dki sub non.snn num values = 2; 
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break; 


case Function: 
kms ptr-»dki funct.fn type = 1; 
kms ptr-»dki funct.fn range = TRUE; 
kms ptr-»dki funct.fn num value = 2; 


break; 


} 
} 
integer range 
{ 
check ids = TRUE; 


} 
integer range: RANGE int range 
int range: INTEGER ELIPSES 


/* The kms infor value nodes are allocated and initialized */ 
/* dependent upon the state of curr_op. As can be seen from */ 
/* the switch rules which follow, the same sequence must */ 
/* occur for all the allowable types. */ 


{ 
switch (curr_op) 
{ 
case NonEnt: 
kms ptr->dki ent non.enn value = dap ent value alloc(); 
kms ptr->dki ent non.enn value->ev value = var str alloc( strlen($2) + 1); 
strcpy(dki ent non.enn value->ev value, $2); 
kms ptr->dki ent non.enn value->ev next value — NULL; 
kms ptr->dki ent non.enn num values++; 
kms ptr->dki ent non.enn value = entval ptr; 
entval ptr = NULL; 
break; 


case Derived: 
kms ptr->dki der non.dnn value — dap ent value alloc(); 
kms ptr->dki der non.dnn value->ev value — var str alloc( strlen($2) + 1); 


strcpy(dki der non.dnn value->ev value, $2); 
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kms ptr->dkı der non.dnn value->ev next value — NULL; 
kms ptr->dki der non.dnn num values++; 

kms ptr->dki der non.dnn value = entval ptr; 

entval ptr = NULL; 

break; 


case SubNon: 
kms ptr->dki sub non.snn value — dap ent value alloc(); 
kms ptr->dki sub non.snn value->ev value — az Allee! strlen($2) + 1); 
strcpy(dki sub non.snn value-»ev value, $2); 
kms ptr->dki sub non.snn value->ev next value — NULL; 
kms ptr->dki sub non.snn num values++; 
kms ptr->dki sub non.snn value = entval ptr; 
entval ptr = NULL; 
break; 


case Function: 
kms ptr->dki funct.fn value = dap ent value alloc(); 
kms ptr->dki funct.fn value->ev value = var str alloc( strlen($2) + 1); 
strcpy(dki funct.fn value->ev value, $2); 
kms _ ptr->dki_funct.fn_value->ev_ next value = NULL; 
kms ptr->dki funct.fn_ num value++; 
kms ptr->dki funct.fn value = entval ptr; 
entval ptr = NULL; 
break; 


} 
j 
INTEGER 


{ 


switch (curr_op) 

{ 

case NonEnt: 
kms ptr-»dki ent non.enn value = dap ent value alloc(); 
kms ptr->dki ent non.enn value->ev value — var str alloc( strlen($1) + 1); 
strcpy(dki ent non.enn value->ev value, $1); 
kms ptr->dki ent non.enn value->ev next value — NULL; 
kms ptr-»dki ent non.enn num values++; 
entval ptr2 — kms ptr->dki ent non.enn value; 


entval ptr2 = entval_ptr; 
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entval ptr = NULL; 
break; 


case Derived: 
kms ptr->dki der non.dnn value = dap ent value alloc(); 
kms ptr->dki der non.dnn value->ev value = var str alloc( strlen($1) + 1); 
strepy(dki der non.dnn value->ev value, $1); 
kms ptr->dki der non.dnn value->ev next value — NULL; 
kms ptr->dkı der non.dnn num values++; 
entval ptr2 = kms ptr->dki der non.dnn value; 
entval ptr2 = entval ptr; 
entval ptr = NULL; 
break; 


case SubNon: 
kms ptr->dki sub non.snn value = dap ent value alloc(); 
kms ptr->dki sub non.dnn value->ev value = var str alloc( strlen($1) + 1); 
strepy(dki sub non.snn value->ev value, $1); 
kms ptr->dki sub non.snn value->ev next value = NULL; 
kms ptr->dki sub _non.snn num values+>+; 
entval ptr2 = kms ptr->dki sub non.snn value; 
entval ptr2 = entval ptr; 
entval ptr = NULL; 
break; 


case Function: 
kms ptr->dki funct.fn value — dap ent value alloc(); 
kms ptr->dki funct.fn value->ev value — var str alloc( strlen($1) - 1); 
strcpy(dki funct.fn value->ev value, $1); 
kms ptr->dki funct.fn value->ev next value = NULL; 
kms ptr->dkı funct.fn num value++; 
entval ptr2 — kms ptr->dki funct.fn value; 
entval ptr2 = entval ptr; 
entval ptr = NULL; 
break; 


real type definition: 
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{ 
check ids = FALSE; 


switch (curr op) 

i 

case NonEnt: 
kms ptr->dki ent non.enn type — f'; 
kms ptr->dki ent non.enn range — TRUE; 
kms ptr->dki ent non.enn num values — 2; 
kms ptr->dki ent non.enn constant = FALSE; 
break; 


case Derived: 
kms ptr->dkı der non.dnn type = f'; 
kms ptr->dki der non.dnn range — TRUE; 
kms ptr->dki der non.dnn num values — 2; 


break; 


case SubNon: 
kms ptr->dki sub non.snn type = 'f; 
kms ptr->dki sub non.snn range = TRUE; 
kms ptr->dki sub non.snn num values — 2; 


break; 


case Function: 
kms ptr->dki funct.fn type = 'f'; 
kms ptr->dki funct.fn range = TRUE; 
kms ptr->dki funct.fn_num_ value = 2; 


break; 


} 
} 


float range 


{ 
check ids = TRUE; 


} 
float range: RANGE FLOAT ELIPSES 
{ 


switch (curr_op) 


{ 


case NonEnt: 
kms ptr->dki ent non.enn value — dap ent value alloc(); 
kms ptr->dki ent non.enn value->ev value — var str alloc( strlen($2) + 1); 
strepy(dki ent non.enn value->ev value, $2); 
kms ptr->dki ent non.enn value->ev next value = NULL; 
kms ptr->dki ent non.enn num values*--; 
kms ptr->dki ent non.enn value = entval ptr; 
entval ptr= NULL; 
break; 


case Derived: 
kms ptr-»dki der non.dnn value = dap ent value alloc(); 
kms ptr->dki der non.dnn value->ev value — var str alloc( strlen($2) + 1); 
strepy(dki_ der _non.dnn value->ev value, $2); 
kms ptr->dki der non.dnn value->ev next value = NULL; 
kms ptr->dki der non.dnn num values++; 
kms ptr->dki der non.dnn value = entval ptr; 
entval ptr = NULL; 
break; 


case SubNon: 
kms ptr->dki sub non.snn value — dap ent value alloc(); 
kms ptr->dki sub non.snn value->ev value — var str alloc( strlen($2) - 1); 
strepy(dki sub non.snn_value->ev value, $2); 
kms ptr->dki sub non.snn value->ev next value = NULL; 
kms ptr->dkı sub non.snn num values++; 
kms ptr-»dki sub non.snn value = entval ptr; 
entval ptr = NULL; 
break; 


case Function: 
kms ptr->dki funct.fn value — dap ent value alloc(); 
kms_ptr->dki funct.fn_value->ev_value = var str alloc( strlen($2) + 1); 
strepy(dki funct.fn value->ev_value, $2); 
kms ptr->dki funct.fn value->ev_next value = NULL; 
kms ptr-»dki funct.fn num value++; 
kms ptr-»dki funct.fn value = entval ptr; 
entval ptr = NULL; 


break; 
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} 
FLOAT 


{ 


switch 


{ 


(curr_op) 


case NonEnt: 


kms ptr->dki ent non.enn value — dap ent value alloc(); 

kms ptr->dki ent non.enn value->ev value = var str alloc( strlen($1) + 1); 
strcpy(dki ent non.enn value->ev value, $1); 

kms ptr->dki ent non.enn value->ev next value — NULL; 

kms ptr->dki ent non.enn num values++; 

entval ptr2 — kms ptr->dki ent non.enn value; 

entval ptr2 = entval ptr; 

entval ptr = NULL; 

break; 


case Derived: 


kms ptr->dki der non.dnn value = dap ent value alloc(); 

kms _ptr->dki der non.dnn value->ev value = var str alloc( strlen($1) + 1); 
strcpy(dki der non.dnn value->ev value, $1); 

kms ptr->dki der non.dnn value->ev next value = NULL; 

kms ptr->dki der non.dnn num values++; 

entval ptr2 = kms ptr->dki der non.dnn value; 

entval ptr2 = entval ptr; 

entval ptr = NULL; 

break; 


case Subnon: 


kms ptr->dki sub non.snn value — dap ent value alloc(); 

kms ptr->dki sub non.snn value->ev value = var str alloc( strlen($1) + 1); 
strcpy(dki sub non.snn value->ev_ value, $1); 

kms ptr->dki sub non.snn value->ev next value — NULL; 

kms ptr->dki sub non.snn num values$-; 

entval ptr2 — kms ptr->dkı sub non.snn value; 

entval ptr2 = entval ptr; 

entval ptr = NULL; 

break; 


case Function: 


kms ptr->dki funct.fn value — dap ent value alloc(); 
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kms ptr->dki funct.fn value->ev value — var str alloc( strlen($1) + 1); 
strcpy(dki_funct.fn value->ev_ value, $1); 

kms ptr->dki funct.fn value->ev next value = NULL; 

kms ptr->dki funct.fn num value++; 

entval ptr2 — kms ptr->dki funct.fn value; 

entval ptr2 — entval ptr; 

entval ptr = NULL; 

break; 


} 
} 


derived type defintion: NEW 


/* the nonentity, subtype nonentity, and derived type */ 
/* nonentity nodes are examined to find which con-  */ 


/* the current value of IDENTIFIER 2 


{ 

curr_op = Derived; 

check ids = FALSE; 

j 

name id 

i 

non ent ptrl — db ptr->edn nonentity; 
non ent ptr2 — non ent ptrl; 

subnon ptrl — db ptr->edn nonsubptr; 
subnon ptr2 = subnon ptri; 

dernon ptrl = db ptr->edn_nonderptr; 
dernon ptr2 = dernon ptri; 


inl = FALSE; 
in2 = FALSE; 
in3 = FALSE; 


while ((non ent ptr2 !< NULL) && (ini —— FALSE)) 
{ 


if(stremp(non ent_ptr2->enn_ name, temp value) == FALSE) 
{ 
inl = TRUE; 


strcpy (temp, temp value); 
} 
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else 


{ 


non ent ptrl = non ent ptrl->enn next node; 


non ent ptr2 = non ent ptri; 


} 
} 
while ((subnon_ptr2 != NULL) && (inl == FALSE) && (in2 == FALSE)) 
{ 
if(stremp(subnon_ptr2->snn_name, temp value) == FALSE) 
{ 
in2 = TRUE; 
strcpy(temp, temp value); 
j 
else 
{ 


subnon ptri = subnon ptri->snn_next_node; 


subnon ptr2 = subnon ptrl; 


} 


} 
while ((dernon ptr != NULL) && (ini == FALSE) && (in2 == FALSE) && 


(in3 == FALSE)) 


{ 
if(stremp(dernon ptr2-»dnn name, temp value) == FALSE) 
{ 
in3 = TRUE; 
strcpy(temp,temp value); 
} 
else 
i 


dernon ptrl — dernon ptrl-»dnn next node; 
dernon ptr2 = dernon ptri; 
} 
} 
} 
derived range 
{ 
check ids = TRUE; 
} 
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; 
derived range: integer type definition 


/* the type is now checked to see if in fact the type field */ 
/* in the kms info structure actually contains the value */ 


/* identified in derived type definition above a 


{ 
if (inl == TRUE) 
d 
if(stremp(kms_ptr->dki ent non.enn_ name, temp) != FALSE) 
proc eval error(serror); 


} 


else 
{ 
if (n2 == TRUE) 
{ 
if(stremp(kms ptr-»dki sub non.snn name, temp) != FALSE) 
proc eval error(serror); 


j 


else 
d 
if (in3 == TRUE) 
{ 
if(stremp(kms_ptr->dki_ der non.dnn_name, temp) != FALSE) 
proc eval error(serror); 


} 


else 


{ 
proc eval error(serror); 
j 
j 
j 
} 
| real type definition 
d 
if (inl == TRUE) 
{ 


if(stremp(kms ptr-»dki ent non.enn name, temp) != FALSE) 
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proc eval error(serror); 


} 


else 
{ 
if (in2 == TRUE) 
{ 
if(stremp(kms ptr-»dki sub non.snn name, temp) != FALSE) 
proc eval error(serror); 


} 


else 
{ 
if (ane =— TRUE) 
{ 
if(stremp(kms ptr-»dki der non.dnn name, temp) != FALSE) 
proc eval error(serror); 


} 


else 


{ 
proc eval error(serror); 
} 
} 
} 
} 


entity type definition: EMPTY 
| ENTITY 


{ 
check ids = TRUE; 


} 


entity component declaration list 


d 
check ids = FALSE; 


} 


end entity 
) 


entity component declaration list: entity component declaration 


| entity component declatation list entity component declatation 
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end entity: END 
| END ENTITY 


) 


entity component declatation: 


{ 
serror = 5; 
} 
ELSE ZI ZZ identifier list COLON 
{ 
check ids = FALSE; 
} 


function type default value SEMICOLON 


function type: common type 

| FLOAT 

d 

kms ptr-»dki funct.fn type = ’f; 

kms ptr-»dki funct.fn range = FALSE; 
kms _ ptr->dki funct.fn total length = FLTlength; 
kms ptr-»dki funct.fn num value = 0; 
kms_ptr->dkı funct.fn value = NULL; 

kms ptr->dki funct.fn entptr = NULL; 

kms ptr->dki funct.fn subptr = NULL; 
kms ptr->dki funct.fn nonentptr — NULL; 
kms ptr->dki funct.fn nonsubptr — NULL; 
kms ptr->dkı funct.fn nonderptr = NULL; 
kms ptr->dki funct.fn next fntptr — NULL; 
kms ptr->dki funct.fn entnull = FALSE; 
kms ptr-»dki funct.fn unique = FALSE; 


) 
| INTEGER 


{ 

kms ptr-»dki funct.fn type — ’1; 

kms ptr-»dki funct.fn range = FALSE; 

kms ptr->dki funct.fn total length = INTlength; 
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kms ptr->dki funct.fn num value = 0; 

kms ptr->dki funct.fn value = NULL; 

kms ptr->dki funct.fn entptr = NULL; 

kms _ptr->dki funct.fn subptr = NULL; 
kms ptr->dki funct.fn_nonentptr = NULL; 
kms ptr->dki funct.fn nonsubptr = NULL; 
kms ptr->dki funet.fn nonderptr = NULL; 
kms ptr-»dki funct.fn next fntptr — NULL; 
kms ptr-»dki funct.fn entnull = FALSE; 
kms ptr-»dki funct.fn unique = FALSE; 


} 
| BOOLEAN 


d 
kms ptr-»dki funct.fn type = ’b’; 
kms ptr->dki funct.fn range = FALSE; 
kms ptr->dki funct.fn total length = BOOLlength; 
kms ptr->dki funct.fn num value = 0; 
kms ptr->dki funet.fn value — NULL; 
kms ptr->dki funct.fn entptr = NULL; 
kms ptr->dki funct.fn subptr — NULL; 
kms ptr->dki funet.fn nonentptr = NULL; 
kms ptr->dki funct.fn nonsubptr = NULL; 
kms ptr->dki funct.fn nonderptr = NULL; 
kms ptr->dki funct.fn_next_fntptr = NULL; 
kms ptr->dki funct.fn entnull = FALSE; 
kms ptr->dki funct.fn unique = FALSE; 
j 

| set type definition 


9 


common type: enumeration type definition 

| integer type definition 

| real type definition 

| name id 
d 
non ent ptrl — db ptr->edn nonentity; 
non ent ptr2 — non ent ptrl; 
ent ptrl = db ptr-»edn entity; 
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ent ptr2 = ent ptrl; 
gen ptri = db_ptr->edn_ subptr; 
gen ptr2 = gen ptri; 
subnon ptri = db ptr-»edn nonsubptr; 
subnon ptr2 = subnon ptri; 
dernon ptrl — db ptr->edn_nonderptr; 
dernon ptr2 — dernon ptrl; 
inl = FALSE; 
in2 = FALSE; 
ine = FALSE: 
in4 = FALSE; 
ind = FALSE; 
while ((non ent ptr2 !< NULL) && (ini —— FALSE)) 
{ 
if(stremp(non ent ptr2-»enn name, temp value) == FALSE) 
{ 
inl = TRUE; 
strcpy(temp, temp value); 


j 


else 


{ 


non ent ptrl = non ent ptri->enn next node; 


non ent ptr2 


} 
} 
while ((subnon ptr2 != NULL) && (int == FALSE) && (in2 == FALSE)) 


{ 


non ent ptri; 


if(stremp(subnon ptr2-»snn name, temp value) == FALSE) 
{ 
in2 = TRUE; 
strcpy(temp, temp value); 
} 
else 
{ 


subnon ptrl — subnon ptrl-»snn next node; 


subnon ptr2 = subnon ptri; 


} 
} 
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while ((dernon ptr2 != NULL) && (inl == FALSE) && (in2 == FALSE) && (in3 


== FALSE)) 

d 

if(stremp(dernon ptr2->dnn name, temp value) == FALSE) 
d 
ins = TRUE: 
strcpy(temp,temp value); 

} 

else 
d 
dernon ptri — dernon ptri->dnn next node; 
dernon ptr2 — dernon piri; 
} 

} 


while((gen ptr2 != NULL) && (inl == FALSE) && (in2 == FALSE) && (in3 == 
FALSE) && (ind == FALSE)) 


d 
if(stremp(gen ptr2->gsn name, temp value) == FALSE) 
{ 
ind = TRUE; 
strcpy (temp, temp value); 
} 
else 
{ 


gen ptrl = gen _ptrl->gsn next genptr; 
gen ptr2 = gen ptri; 

} 

} 

while((ent ptr2 I= NULL) && (inl == FALSE) ke ke (in2 == FALSE) & & (in3 == 
FALSE) & & (in4 = FALSE) && (in5 == FALSE)) 

{ 

if(stremp(ent ptr2->en name, temp value) == FALSE) 
{ 
m5 = TRUE; 
strcpy(temp, temp value); 


} 


else 


{ 
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ent ptrl = ent ptrl->en next ent; 
ent ptr2 = ent ptri; 
} 
} 
if (inl == TRUE) 
{ 
func ptri->fn_nonentptr = non ent ptr2; 
kms ptr->dki funct.fn type = ’v’; 
) 
else 
{ 
if (in2 == TRUE) 
{ 
func_ptrl->fn_nonsubptr = subnon ptr2; 
kms ptr->dki funct.fn type — "wi: 
) 


else 
{ 
if (in3 == TRUE) 
{ 
func_ptrl->fn_nonderptr = dernon_ptr2; 
kms_ptr->dki funct.fn_type = 'x’; 


} 


else 
{ 
if (in4 == TRUE) 
{ 
func ptri->fn subptr — gen ptr2; 
kms ptr->dki funct.fn type = y”; 
} 
else 
{ 
if(in5 == TRUE) 
{ 
func_ptrl->fn_entptr = ent ptr2; 
kms_ptr->dki_funct.fn_type = ’z’; 
} 


else 
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{ 
proc eval error(serror); 
} 
} 
} 
} 
} 
} 


| string rule 


) 


string rule: STRING LP 
{ 
kms _ptr->dki funct.fn_ type = ’s’; 
kms- ptr->dki funct.fn range = TRUE; 
kms ptr->dkı funct.fn num value = 2; 
} 
int range RP 
set type definition: SET OF commmon type 
d we kms ptr->dki funct.fn type = toupper(kms_ptr- 
>dki funct.fn type); 


} 


e 
? 


default value: empty 


| ASSIGN simple const SEMICOLON 


e MR ee 
? 


identifier list: name id 

{ 

temp ptr = kms ptr->dki temp ptr; 

free ident list(temp ptr); 

kms ptr-»dki temp ptr = dap ident list alloc(); 
temp ptr = kms ptr->dki temp ptr; 
strcpy(temp ptr->il_name, temp value); 

temp ptr->il_ next = NULL; 

) 

| identifier list COMMA name id 
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{ 

new temp ptr = temp ptr; 

while (new temp ptr->il next != NULL) 
new temp ptr — new temp ptr->il next; 

new temp ptr->il next — dap ident list alloc(); 
new temp ptr — new temp ptr->il next; 
strcpy(new_temp ptr->il name, temp value); 


new temp ptr->il next = NULL; 


} 


subtype declaration: SUBTYPE 
{ 
curr op = SubTypels; 
check ids = TRUE; 


serror = 7; 
} 
name id 
{ 
serror = 8; 
check ids = FALSE; 
} 
IS subtype indication SEMICOLON 
| SUBTYPE 
{ 


check ids = FALSE; 
curr op = SubTypels; 
serror = 10; 


} 


name id 


{ 


gen ptrl = db ptr->edn_subptr; 
gen ptr2 — gen ptrl; 


inl = FALSE; 
while ((gen ptr2 != NULL) € (inl == FALSE)) 
{ 


if (stremp(gen ptr2-»gsn name, temp value) == FALSE) 
inl = TRUE; 
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else 


{ 


gen ptrl = gen ptrl->gsn next genptr; 


| 


gen ptr2 = gen ptrl; 
} 
} 
if (inl == FALSE) 


proc eval error(serror); 


} 
IS namel list 
{ 
inl = FALSE; 
“ in2 — FALSE; 
in3 = FALSE; 


namel ptrl = kms ptr->dki namel ptr; 
namel ptr2 = namel ptrl; 

gen ptrl = db ptr->edn subptr; 

gen ptr2 = gen ptri; 

overlapsub ptrl — gen ptri-»gsn subptr; 
overlapsub ptr2 = overlapsub ptri; 
while (namel ptr2 != NULL) 


{ 
while ((gen_ptr2 != NULL) && (inl == FALSE)) 
{ 
if (stremp(gen_ptr2->gsn name, namel ptr2->il name) == FALSE) 
{ 
inl = TRUE; 
in2 = TRUE: 
if (overlapsub ptr2 == NULL) 
{ 


gen_ptrl = gen_ptrl->gsn_subptr; 

gen ptr2 = gen ptri; 

gen ptr2 = dap overlap sub node alloc(); 
overlapsub ptrl = gen ptr2; 

overlapsub ptr2 = overlapsub ptri; 

namel ptr2->il name = overlapsub_ptr2; 
overlapsub_ptr2->osn name = namel_ptr2->il name; 


overlapsub_ptr2->oen_next_name = NULL; 
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} 


else 
{ 
while (overlapsub_ptr2->oen name != NULL) 
overlapsub ptr2 = overlapsub ptr2->oen next name; 
overlapsub ptr2->oen next name — dap overlap sub node alloc(); 
overlapsub ptri = overlapsub ptr2->oen next name; 
overlapsub ptr2 = overlapsub ptrl; 
namel ptr2->il name = overlapsub ptr2; 
overlapsub ptr2->osn name — namel ptr2->il name; 


overlapsub ptr2->oen next name — NULL, 


} 
} 
else 
{ 
gen ptrl = gen ptrl->gsn next genptr; 
gen ptr2 = gen ptri; 
} 
} 
ent ptrl = db ptr->edn entity; 
ent ptr2 = ent ptri; 
overlapent ptrl — gen ptri->gsn entptr; 
overlapent ptr2 = overlapent ptri; 
while ((ent_ptr2 '= NULL) && (in3 == FALSE)) 
{ 
if (stremp(ent ptr2->gsn_ name, namel ptr2->il name) == FALSE) 
{ 
in3 = TRUE; 
in4d = TRUE; 
if (overlapsub ptr2 == NULL) 
{ 
gen ptrl = gen_ptrl->gsn_entptr; 
gen ptr2 = gen ptri; 
gen ptr2 = dap overlap ent node alloc(); 
overlapent ptri — gen ptr2; 


overlapent ptr2 — overlapent ptrl; 
namel ptr2->il name = overlapent_ptr2; 


overlapent ptr2->oen name — namel ptr2->il name, 
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overlapent ptr2->oen next name = NULL; 


} 


else 

{ 

while (overlapent ptr2->oen name != NULL) 

overlapent ptr2 = overlapent ptr2->oen next name; 

overlapent ptr2->oen next name = dap overlap ent node alloc(); 
overlapent ptrl = overlapent ptr2->oen next name; 
overlapent ptr2 — overlapent ptrl; 

namel ptr2->il name = overlapent ptr2; 

overlapent ptr2->oen name = namel ptr2->il name; 


overlapent ptr2->oen next name = NULL; 


} 
} 


else 


ent ptrl = ent ptrl->en next ent; 
ent ptr2 — ent ptrl; 
} 
} 
if ((in2 == FALSE) && (in4 == FALSE)) 


proc eval error(serror); 


else 

{ 
inl = FALSE; 
in2 = FALSE; 
in3 = FALSE; 
in4 = FALSE; 


gen ptri — db ptr->edn subptr; 
gen ptr2 — gen ptrl; 
namel ptri = namel_ptri->il_ next; 


namel ptr2 = namel ptrl; 


} 


} 
check ids = TRUE; 


} 
******** entity type definition SEMICOLON 


incomplete subtype declaration 
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subtype indication: name id subtype definition 
, 


subtype definition: RANGE enumeration literal ELIPSES enumeration literal 
| integer type definition 
| real type definition 
| empty 
{ 


node type — find previous(temp value, non ent ptrl, subnon ptrl, dernon ptrl); 


switch(node type) 
{ 
case NonEnt: 

subnon ptrl — dap sub non node alloc(); 
strepy(subnon ptrl-»snn name, ent non ptrl-»enn name); 
subnon ptrl-»snn type = ent non ptrl-»enn type; 
subnon ptrl1->snn total length = ent non ptrl->enn total length; 
subnon_ ptrl->snn_range = ent_non ptri-»enn range; 
subnon-ptri->snn_num values = ent_non ptri->enn num values; 
subnon_ptrl->snn_ value = ent non ptrl->enn_value; 
subnon ptrl->snn_next node — ent non ptrl-»enn next node; 
subnon ptri = db ptr->edn_nonsubptr; 
subnon ptr2 = subnon ptrl; 
if (subnon ptr2 == NULL) 

db ptr->edn nonsubptr = subnon ptri; 
else 

{ 

while (subnon_ ptr2->snn_next_ node != NULL) 

subnon ptr2 — subnon ptr2->snn next node; 

subnon ptr2->snn next node — subnon ptrl; 

} 
subnon ptrl = NULL; 
break; 


case Derived: 
subnon ptri = dap sub non node alloc(); 
strepy(subnon ptrl-»snn name, dernon ptrl-»dnn name); 


subnon ptri-»snn type = dernon ptri-»dnn type; 
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subnon ptri->snn total length = dernon ptri->dnn total length; 
subnon ptr1->snn range — dernon ptri->dnn range; 
subnon-ptrl->snn num values = dernon ptrl->dnn num values; 
subnon ptrl->snn_ value = dernon ptrl->dnn value; 
subnon ptrl->snn next node = dernon ptrl-»dnn next node; 
subnon ptrl — db ptr->edn_nonsubptr; 
subnon ptr2 — subnon ptrl; 
if (subnon_ptr2 == NULL) 

db ptr->edn nonsubptr = subnon ptrl; 
else 

{ 

while (subnon ptr2->snn next node != NULL) 

subnon ptr2 = subnon ptr2->snn_ next node; 

subnon ptr2->snn next node = subnon ptri; 

} 
subnon ptrl = NULL; 
break; 


case SubNon: 

subnon ptrl — dap sub non node alloc(); 
strcpy(subnon ptrl->snn name, subnon ptri->snn name); 
subnon ptrl->snn type = subnon ptrl->snn type; 
subnon ptr1->snn total length = subnon ptri->snn total length; 
subnon ptrl->snn range = subnon ptrl->snn range; 
subnon-ptrl->snn_num values = subnon ptrl->snn num values; 
subnon ptrl->snn value = subnon ptrl->snn value; 
subnon ptrl->snn next node = subnon ptrl->snn_next_node; 
subnon ptrl = db ptr->edn_nonsubptr; 
subnon ptr2 = subnon ptrl; 
if (subnon_ptr2 == NULL) 

db ptr->edn nonsubptr = subnon ptrl; 
else 

{ 

while (subnon ptr2->snn next node !— NULL) 

subnon ptr2 — subnon ptr2->snn next node; 

subnon ptr2->snn next node = subnon ptri; 

} 
subnon ptrl = NULL; 
break; 
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type mark: namel 


| predefined tm 


namel list: namel 
{ 
temp ptr — kms ptr->dki temp ptr; 
free ident list(temp ptr); 
kms ptr->dki temp ptr = dap ident list alloc(); 
temp ptr = kms ptr->dki temp ptr; 
strcpy(/temp ptr->il name, temp value); 
temp ptr->il next — NULL; 
} 
, namel list COMMA namel 
{ 
new temp ptr = temp ptr; 
while (new temp ptr->il next !'— NULL) 
new temp ptr = new temp ptr->il_ next; 
new temp ptr->il next = dap ident list alloc(); 
new temp ptr = new temp ptr->il next; 
strcpy(new temp ptr-»il name, temp value); 
new temp ptr->il next = NULL; 


} 


namel: name id 


| selected component 
predefined tm: STRING — /* for type values in declaration */ 
| INTEGER 


| BOOLEAN 
| FLOAT 


) 
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ada range: simple expression ELIPSES sımple expression 


3 


incomplete subtype declaration: SUBTYPE 
{ 
check ids = TRUE; 
} 
/* entity */ 
name id SEMICOLON 
{ 
in = FALSE; 
gen ptrl = db ptr->edn_ subptr; 
while (gen_ptrl '= NULL) 
{ 
if (stremp(gen ptri-»gsn name, temp value) == FALSE) 


{ 


proc eval error(serror); 
in = TRUE; 
} 
else 
gen_ptrl = gen_ptrl->gsn next genptr; 
gen ptr2 — gen ptrl; 


) 


if (in == FALSE) 

{ 

gen ptr2 = dap gen _ node alloc(); 
strepy(gen_ptr2->gsn name, temp value); 
gen _ptr2->gsn num funct = 0; 
gen_ptr2->gsn terminal = FALSE; 
gen ptr2->gsn entptr = NULL; 
gen ptr2->gsn num ent = NULL; 
gen_ptr2->gsn ftnptr = NULL; 
gen _ptr2->gsn subptr = NULL; 
gen_ptr2->gsn num sub = O; 


gen ptr2-»gsn next genptr; 
gen ptrl = db ptr->edn_subptr; 
gen ptr2 — gen ptrl; 
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if (gen_ptr2 == NULL) 
{ 
db ptr->edn subptr = gen ptri; 
gen ptr2 = db ptr->edn subptr; 
gen ptr2 = NULL; 
} 
else 
{ 
gen ptri — db ptr->edn subptr; 
gen ptr2 = gen ptri; 
while (gen_ptr2->gsn next genptr != NULL) 
gen ptr2 — gen ptr2->gsn next genptr; 
gen ptri->gsn next genptr — gen ptr2; 
gen ptr2 — NULL; 
} 
} 
check ids = FALSE; 


} 
null value constraint: WITHNULL 
| WITHOUTNULL 


) 


selected component: IDENTIFIER DOT IDENTIFIER 
attribute: type mark HYPHEN LP loop_parameter RP 


{ 
} 


| type mark HYPHEN attribute identifier LP ada expresssion RP 
attribute identifier: IMAGE 
| VAL 


| POS 
| VALUE 


) 


literal: NUMERIC LITERAL /* for user default type values in declaration */ 
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| LITERAL_CHARACTER 
| CHARACTER STRING 
| NULL 

| TRUE 

| FALSE 


? 


named aggregate: LP 


{ 
} 


component association list RP 
| EMPTY  /* to handle case when no attributes listed in */ 
/* CREATE due to LR(1) grammar */ 


1 


component association list: component association 


{ 


| component association list COMMA component association 
; 


component association: identifier choice 


{ 
CREATE: 


} 
IMPLY ada expresssion 


identifier choice: IDENTIFIER 


{ 


} 
| identifier choice IDENTIFIER 


ada expression: relation 
| rel or list 
| rel xor list 
| rel and then list 
| rel or else list 


rel and list: relation AND relation 
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| rel and list AND relation 
rel or list: relation OR relation 
| rel or list OR relation 
rel xor list: relation XOR relation 
| rel xor list XOR relation 
rel and then list: relation AND THEN relation 
| rel and then list AND THEN relation 


3 


rel or else list: relation OR ELSE relation 
| rel or else list OR ELSE relation 


; relation: simple expression 


CREATE: 
(FOR | FOR EACH) £ DESTROY 
relational operator 
CREATE: 
(FOR | FOR EACH) £ DESTROY: 
simple expression 
| expr in op ada range 
| expr in type mark 
| simple expression test set 


| quantification clause list simple expression 
) 


simple expression: term list 
| unary operator term list /* probably won’t use since */ 


| set exp list /* involves expressions */ 
; 
set exp list: primary set operator primary 
| set exp list set operator primary 
3 
primary: ada name2 
| primary? 
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primary2: literal 


{ 
/* NUMERIC LITERAL | LITERAL CHARACTER | CHARACTER STRING | */ 


/* NULL | TRUE| FALSE */ 
} 


| set_constructor 
| LP ada expression RP 


| indexed component 
/* &ctype conversion is handled by indexed component */ 


indexed component: ada name 
ada name: ada name2 
| indexed component 
; 
ada name2: type mark 
/* -» namel|predefined tm(b,s,i,f) “/ 
| function call 
term list: term 
| term list adding operator term 
term: factor list 
) 
factor hist: factor 
| factor list multiplying operator factor 
; 
factor: primary 
| primary EXPONENT primary 
; 
quantification clause list: quantification clause COLON 


| quantification clause list 
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quantification clause COLON 
quantification clause: FOR quantifier IDENTIFIER IN domain 
quantifier: SOME 
| EVERY 
| NO 
domain: primary 
| primary WHERE 
| and ((simple expl list 2nd on simple expl list simple exp2 list) | 
| and ((simple expl list 2nd on simple expl list simple exp2 list) | 
; 
expr in op: simple expression 
CREATE: 
in op 
expr in type mark: expr in op type mark 


3 


test set: isin operator primary 
| is op EMPTY 
, 


relational operator: — 
E 
| &« 
ka - 
| &> 
>= 
| EQ 
| NE 
| NQ 
| LT 
| LE 
| LQ 


141 


Ke 
| GE 
| GQ 


adding operator: + 
| && /* concat */ 
unary operator: arith unary op 
| log unary op 
arıth unary op: + 
log unary op: NOT 
multiplying operator: * 


| / 
| MOD 


| REM /* remainder */ 
in op: IN 
| NOT IN 
is op: IS 
| IS NOT 
isin operator: is op IN 
set operator: UNION 
| diff op 
| inter op 


I 
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diff op: DIFF | DIFFERENCE 
inter op: INTER 

| INTERSECT 

| INTERSECTION 
set constructor: 


LCB 
RCB 


| LCB RCB /* empty or null list */ 
| LCB 
| LCB expr in op primary2 WHERE condition RCB 
/* because of primary2, probably not for CREATE */ 
function call: predefined function call 
predefined function call: function name 
| attribute 
aggregate argument: primary 
| IDENTIFIER DUPLICATES LP primary RP 
function name: COUNT 
| SUM 
| AVG 


| MIN 
| MAX 


KR RR KR KR KHR KK KK HH KA KK KK KK RK ok RK ok RK KK KH KH KHR Kok KK ok RK ok x x x GN GG GÀ E X A o Xx 
) 


KKEKKKAKKKKKKKKKKAKKKKAKAKKKKKKKAKKKKAKKKKKAKKKKKKKKKKKKAKAKKKKKKKKKKE 
End of ddl statement 


dml statement: simple statement 
| compound statement 


) 
simple statement: exit statement 
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| assignment statement 
| create statement 

| include statement 

| exclude statement 

| destroy statement 

| move statement 


| procedure call 


) 


exit statement: EXIT end exit SEMICOLON 


3 


end exit: IDENTIFIER 
| WHEN condition 
| IDENTIFIER WHEN condition 


3 


assignment statement: indexed component ASSIGN ada expression 


) 


create statement: CREATE NEW 
{ 
check ids = FALSE; 
} 
namel list 
{ 
temp ptr — kms ptr->dki temp ptr; 
while (temp ptr != NULL) 
{ 
inl = FALSE; . 
ent ptrl = db ptr->edn entity; 
while ((ent_ptri != NULL) && (inl == FALSE)) 
{ 
if (stremp(temp_ptr->il name, ent_ptrl->en name) == FALSE) 
{ 
create listl = dap create list alloc(); must create 
create listl->dcl node type = Entity; 


create listl->dcl name = ent ptrl->en name; 
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create list1->dcl ent ptr = ent ptr]; 
NULL; 
create _list1->del next = NULL; 


create listl->dcl sub ptr 


create list2 = kms ptr-»dki create.dci create; 
if (create list2 == NULL) 
{ 
kms _ptr->dki create.dci create — create list]; 
create list2 = NULL; 
} 
else 
{ 
while (create list2->dcl next != NULL) 
create list2 = create list2->dcl next; 
create list2->dcl next = create list1; 
create list2 = NULL; 
} 
inl = TRUE; 
} 


else 


{ 
ent ptrl = ent ptrl->en next ent; 
} 
} 
temp ptr — temp ptr-»il next; 
} 
temp ptr = kms ptr->dki temp ptr; 
while (temp ptr != NULL) 
{ 
ın2 = FALSE; 
gen ptrl = db ptr->edn_subptr; 
while ((gen_ptrl != NULL) && (in2 == FALSE)) 
{ 
if (stremp(temp ptr-»il name, gen ptri-»gsn name) == FALSE) 
d 
create list1 = dap create list alloc(); must create 
create listl->dcl node type = GenSub; 
create listl->dcl_ name = gen_ptrl->gsn_name; 


create listl->dcl_ent ptr = NULL; 
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create listl->dcl sub ptr — gen ptrl; 

create list1->dcl next = NULL; 

create list2 = kms ptr->dki create.dci create; 

if (create list2 == NULL) 

{ 
kms _ ptr->dki create.dci create = create list]; 
create list2 = NULL; 

j 


else 
{ 
while (create list2->dcl next != NULL) 
create list2 = create list2->dcl_ next; 
create list2->dcl next = create list1; 


create list2 = NULL; 
} 


ptr = gen ptri; 
proc create(ptr); 
in2 — TRUE; 

} 

else 

{ 
gen ptri = gen ptrl->gsn next genptr; 
} 

} 

temp ptr = temp ptr->1l_next; 


} 


/* the recursive procedure follows */ 


proc create(ptr); 


{ 
gen ptr2 — ptr; 
if (gen ptr2-»gsn entptr !'— NULL) 
{ 
overlapent ptrl = gsn entptr; 
ent ptr2 = overlapent ptrl->oen_name; 
while (overlapent ptr1 != NULL) 
( 


create listl = dap create list alloc(); must create 
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create listi->dcl node type = Entity; 
create listl->dcl name = ent ptr2->en name; 
create listi->dcl ent ptr = ent ptr2; 
create listi->dcl sub ptr = NULL; 
create listl->dcl next = NULL; 
create list2 = kms ptr->dki_create.dci create; 
if (create list2 == NULL) 
{ 
kms_ptr->dki create.dci create = create list1; 
create list2 = NULL; 


} 


else 
{ 
while (create list2->del next !X NULL) 
create list2 = create list2-»dcl next; 
create list2->dcl next = create list1; 
create list2 = NULL; 
} 


overlapent ptri = overlapent ptri->oen next name; 


} 


if (gen ptr2->gsn subptr != NULL) 
{ 
overlapsub ptrl — gsn subptr; 
gen ptrl — overlapsub ptri->osn name; 
while (overlapsub ptri != NULL) 
{ 
create list) = dap create list alloc(); must create 
create listl->dcl node type = GenSub; 
create list1->dcl name = gen_ptri->gsn_name; 
create listl->dcl ent ptr = NULL; 
create listl->dcl_sub ptr = gen_ptrl; 
create listl->dcl next = NULL; 
create list2 = kms ptr->dki_create.dci create; 
if (create list? == NULL) 
{ 
kms ptr->dki create.dci create — create list; 


create list2 — NULL; 
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} 


else 
{ 
while (create list2->dcl next != NULL) 
create list2 = create list2->dcl next; 
create list2->dcl_next = create _list1; 
create list2 = NULL; 
} 
proc create(overlapsub ptrl->osn_ next name); 


overlapsub ptrl — overlapsub ptri->osn next name; 


} 
} 


/* end recursive procedure */ 


} 
named aggregate SEMICOLON 
{ 
} 


allocator: NEW 
namel list /* rule modified to LL(1) from LR(1) */ 


named aggregate 


include statement: INCLUDE ada expression 


INTO indexed component 
SEMICOLON 


exclude statement: EXCLUDE ada expression 
FROM indexed component 
SEMICOLON 


destroy statement: DESTROY 
ada expression SEMICOLON 
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move statement: MOVE ada expression move from SEMICOLON 

| MOVE ada expression move to SEMICOLON 

| MOVE ada expression move from move to SEMICOLON 
move_from: FROM namel list 


move to: INTO namel list 
| INTO namel list named aggregate 
procedure call: procedure name SEMICOLON 
| procedure name parameter part SEMICOLON 


parameter part: LP ada expression list RP 


) 


procedure name: PRİNT 
| PRINT LINE 
| CANCEL 
| HEADER PRINT LINE 
| FORMAT 
| FORMAT LINE 
| HEADER FORMAT LINE 


compound statement: if statement 
| atomic statement 
| loop statement 


if statement: if part end if SEMICOLON 
| if part elsif list end if SEMICOLON 
| if part else part end if SEMICOLON 
| if part elsif list else part end if SEMICOLON 


3 
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if part: IF condition THEN sequence of statements 


3 


elsif list: elsif part 
| elsif list elsif part 


) 


elsif part: ELSIF condition THEN sequence of statements 


else part: ELSE sequence of statements 


. end if END 
| END IF 
atomic statement: begin atomic sequence of statements 
end atomic SEMICOLON 
begin atomic: ATOMIC 
| IDENTIFIER COLON ATOMIC 

end atomic: END 

| END ATOMIC 


| END IDENTIFIER 
| END ATOMIC IDENTIFIER 


) 


loop statement: 
real loop SEMICOLON 
| IDENTIFIER COLON real loop IDENTIFIER SEMICOLON 
| IDENTIFIER COLON real loop SEMICOLON 
| real loop IDENTIFIER 


) 


real loop: iteration clause basic loop end loop 
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basic loop: seqence of statements 


| LOOP sequence of statements 


3 


end loop: END 
| END LOOP 


iteration clause: iteration body 


| iteration body order by clause 


iteration body: for clause loop parameter IN domain 


) 


for clause: FOR 
| FOR EACH 


3 


loop parameter: IDENTIFIER 


order by clause: BY order component list 


) 


order component list: order component 


| order component list COMMA order component 


) 


order component: indexed component 
| sort order indexed component 


) 


sort_order: ASCENDING 
| DESCENDING 


) 


sequence of statements: dm] statement 
| sequence of statements dml statement 
) 
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condition: ada expression 


generalized expression list: generalized expression 
| generalized expression list COMMA 


generalized expression 


generalized expression: ada expression 


| ada range 


ada expression list: ada expression 


| ada expression list COMMA ada expression 
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